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INTRODUCTION 



A. BACKGROUND 

In the summer of 197o the Comouter Science Deoartment at 
the Naval Postgraduate School (NPS) acquired a Sycor Model 
440 Clustered Terminal Processing System for use in the NPS 
microcomputer laocratory. The Sycor 440 utilizes an Intel 
8080 LSI chip as the CPU of a special puroose microcomputer 
system designed primarily for data entry applications. In 
addition to the 8080 CPU/ tne Sycor system nardware 
configuration includes a five megabyte movaple-head disk/ 
oUk of random access memory (RAM), a cassette tape drive/ 
and four Sycor 4412 disolay terminals consisting of a 
Keyboard and cathode ray tube (CRT) display device. Other 
system devices include a model 340 communications terminal/ 
a Centronix serial printer and an RS-232 asynchronous 
communication interface. As part of the Model 440 System/ 
Sycor supplied a comprehensive package of system software. 
Most of this software was designed to support applications 
in the data entry field wnich comprised tne Sycor 440's 
primary market. 

while the Sycor 440 made a significant addition to tne 
hardware complement of tne NPS microcomputer laboratory/ a 
great deal of effort was needed to integrate the system into 
the microcomputer laboratory to ensure that maximum benefit 



would be derived from the new equipment 



The first step in 



the integration of the Sycor 440 hardware within the 
microcomputer laboratory was undertaken as a thesis project 
in the winter of 1977* Kenneth J. Brown and David R . 
Bullock deserve a great deal of credit for the conception 
and the design of the Microcomputer Timeshared System (MTS). 
Their thesis work is contained in Ref. 1. MTS was develooed 
as a virtual machine monitor ( V M M ) to support a user 
operating system for microcomouter program development. An 
in depth description of the system is given in Chapter III. 
because much of MTS had not been debugged and oecause it did 
not support an operating system which would accommodate 
student use/ thesis wcrk was continued in the spring of 1977 
to accomplish these tasks. 

3. GOALS AND OBJECTIVES 

The primary goal of this thesis project was 
implementation of an operating system on the Sycor 440 
microcomputer system capable of suooortina program 
development at the NPS microcomputer laboratory. 
Realization of this goal required the debugging/ 
modification/ and amplification of the basic MTS proaram. 
Since the amount of oppugning effort reauired to achieve the 
primary objective of the thesis could not be accurately 
determined/ several suogoals were establisned which would be 
undertaken if adeauate time was availaole. These subgoals 
included the i nteorat i on of the serial printer/ the cassette 
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tape arive and the RS-232 compatible asynchronous 
communication interface with the basic MTS program. 

C. PRObLtM DEFINITION 

Since an undetermined Drooort ion of the work required to 
accomDlish the primary goal of this thesis woula oe the 
debugging of a major software project* it was decided to 
improve upon the debugging tools available. At the outset* 
the only tool available was the Sycor Mooel 340 
Communications Terminal. This terminal was desianeo for an 
earlier version of tne Sycor 440 system and the scooe of its 
useful debugging commands was quite limited. therefore* the 
development of the MfS Debuoger Tool (MDT) was undertaken, 
written in a systems development language cal lea ML.-80, 
written oy L.R.0. Pearoso at NPS in 19 7 5* this tool greatly 
assisted in the accomplishment of the thesis goals. A 
detailed description cf ML-80 is contained in Ref. 11. 

Once aebugaing of the basic MTS program was 
accomplished* several test proqrams were written to check 
the various MTS service calls; in particular* the disk and 
terminal I/O functions. Flawless operation of these 
routines was reouirea prior to implementing an operatinq 
system with MTS. A detailed description of the steps 
required for the implementation of a user operating system 
on the Sycor 440 Clustered Terminal System is contained in 



the later chapters 



II 



SYCOR 440 HARDWARE DESCRIPTION 



The Sycor 440 Clustered Terminal Processing System 
located in the NPS m i c r oc onrpu t e r laboratory consists of a 
Centronix serial or inter, four display terminals, the Sycor 
model 3 4 0 communications terminal, an R S - 2 3 P asynchronous 
communications interface# ana a desk-high control unit 
containing a cassette drive* The 440 control unit contains 
the system logic and memory, consisting of two Intel 6 0 8 0 
processor chips, 64K of random access memory (RAM), driver 
interfaces for all peripherals, a five meqabyte mini-aisk 
and the cassette tape drive* 

One of the two 8 0 6 0* s located in the 440 control unit 
serves as a controller for the five megabyte mini-disk. The 
mini-disk, which is the primary auxiliary storage device for 
the 440 system holds the system software including both the 
Svcor and the MTS operating systems as well as the users' 
files. The mini-disk is a single platter, movable head disk 
which is segmented in 51P byte sectors* There are 800 
tracks on the disk with 13 sectors oer track. Data transfer 
oetween RAM ana the mini -disk is via direct memory access 
(DMA). Ihe mini-disk controller communicates with the host 
8080 CPU through a 13 byte disk control clock (OCR) located 
at a fixed location in memory [11* 

lhe other 8080 chip found in the 440 control unit serves 
as the system CPU. The 8080 intruction set consists of 78 



data transfer^ arithmetic/ logical/ branch, stack/ 1/0/ and 
machine control instructions 16]. A comprehensive set of 
interrupts including timer, auxiliary storage/ and 
peripheral device interrupts are provided by the Svcor 440. 
Control information and data are exchanged between the 6080 
CPU and the Sycor peripheral devices through the I/O ports/ 
or latches/ provided on the 6080 chip. 

The Sycor 440 system supports synchronous and 
asynchronous communication devices/ up to eiaht display 
terminals/ serial and line printers and card readers. 
Presently/ the Sycor 440 system at NPS is conf igurea with 
four 441 2 display terminals consisting of a keyboard and CRT 
display screen. Each terminal is capable of displaying an 
eight line image of a 576 byte terminal buffer which is 

■4 

located in RAM. Also included is a Centronix serial printer 
which allows hard copy output of files under both the Sycor 
ana the MTS operating systems. In addition to tne mini- 
disk, auxiliary storage on the Sycor 440 is provided by a 
cassette drive which is located in the control unit. lhis 
drive provides a means for loadina the Sycor system software 
onto the mini -disk. The current Sycor 440 systems 
configuration also includes an R S - 2 3 2 communications 
interface which can, via telephone line/ provide a data link 
to both the PDP-11 minicomputer and the school’s IBM 3o0. 
Finally/ the Sycor 440 is equipped with a mooel 340 
communications terminal. This device can be utilized as a 
hardware debugger ana it also nrovioes a software package 
which includes provisions for loading and dumping nex format 



program files between cassette taoe and 440 RAM and for 



translating hex 
format . This last 
since a mini -disk 
be properly loaded 
The Sycor 440 
including magnetic 
readers? however, 



format tapes into the Sycor relocatable 
function of the 340 terminal is important 
file must be in tne relocatable format to 
into RAM by the Sycor Loader. 

system can suoport other peripherals 
tace drives, floppy disx drives, ana card 
these devices are not presently included 



in the Sycor hardware in 



the NFS m i c rocomout e r laboratory 
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MTS DESCRIPTION 



A. BACKGROUND 

MIS was developed in order to integrate the Sycor 440 
system into the tutorial and development activities at N P S . 
Whenever possible* M TS utilizes the Sycor file system to 
avoid the duplication of system facilities. MTS provides a 
man-machine interface at the display terminals w-nich is 
simple* flex i Die* ana convenient* incorporating the best 
features of interactive computer systems at NPS. 



B. MTS INTERNAL DESIGN FEATURES 



MTS was designed to provide a timeshared* virtual BOBO 
microcomputer environment for microcomputer system 

development. As a timesharing system* W TS is c h a r ac t e r i zed 
by the following features: 

(1) the use of swapping to implement mul t i proqrammi ng 
( B J the use of interrupt driven processor management based 
on a round-robin scheduling algorithm 
(i) the use of virtual floppy disks as the primary 
auxiliary storage medium 

(4) the sharing of a single dedicated I/O device oy 
multiple users 111. 

A brief description of each of these features is given in 
the remainder of this chapter. 



Swapping was chosen as the memory management technique 
employed by MTS* Since the Sycor 440 does not provide 
address translation hardware/ it was not possible to 
implement the techniques of either oaging or dynamic 
partitioning of memory. Static partitioning of memory was 
considered/ but since the Sycor 440 provides no memory 
protection in the form of bounds registers/ one task 
executing in memory could access another without detection. 
Swapping provides physical as well as logical seperat ion of 
user tasks. Each of up to four tasks has a mini-disk file 
associated with it. At any time a task image may reside in 
RAM or in its swao file on the mini-disk/ but at no time can 
two task images reside in memory simultaneously/ thus/ task 
integrity is maintained. An undesirable effect of this 
design is that the mini-disk transfer rate limits system 
resoons i veness . An improved mini-disk controller is 
currently being developed oy Sycor Inc. Initial tests nave 
shown that this controller will improve the mini-disk 
transfer rate oy a factor of from three to four. 

In order to guarantee eaui table allocation of the CPU 
resource to all active tasks/ process management of M IS was 
designed around an interrupt driven task scheduler. A task 
retains control of the CPU until a Hardware timer generates 
an interrupt/ signaling the end of the task’s t imesl ice. 
The timer interrupt handler then transfers control to the 
task scheduler to select a new task for execution. To 
protect the active task/ a software lock is set to prevent 
swapping until the active task returns from an MTS service 



call at which time swapping is enabled* 

Virtual floopy disks provide auxiliary storage for user 
programs. These simulated disks consist of 77 tracks, each 
containing 26 sectors. Each sector is made ud of 126 bytes 
to give a total capacity of 256K bytes of storage. The size 
of the virtual disk storaoe area was chosen to reflect the 
actual size of a Physical floopy disk, but can be changed to 
any conveneient size. Transfer of information between 
memory and the virtual floooy disk is accomolished through a 
DMA ouffer in the user’s memory space. MTS utilizes a 
mapping function to convert a sector adaress into a mini- 
disk sector number. Each user has up to eight virtual 
floooy dis< drives available for use with the virtual aisks. 

The last major vj$ feature is the sharing of dedicated 
devices by multiple users. Since the cost of a 
microcomputer CPU makes up sucn a small percentage of the 
overall microcomputer svstem cost, multiprocessing rather 
than mu 1 t i P roq r amm i ng , should be the logical Choice for the 
design of a timeshared m i c rocomou t e r system. Since the 
implementation of this concept was not oossible with the 
Sycor 44U hardware, MTS emphasizes the snaring of the 
remaining system resources. The sharing of the Sycor 440 
memory has already been discussed and is implemented with 
the use of swapping, crovidino up to 46K of HAM for user 
programs. Sharing of the mini-disk auxiliary storaqe is 
provided through the use of the virtual floppy dis< concept. 
MTS also allows for the shari na of the Centronix serial 



printer, which is discussed 



in chapter 



V 



A detailed 



discussion and description of the original MTS design and 



its implementation on the Sycor 440 hardware can be found in 
Ref. 1. 

Since MTS was desianed to support a user operating 
system, and since certain modifications and enhancements 
were necessary orior to incorporating an operating system 
with MIS/ thesis work was continued on the original MTS 
program. The remaining chanters describe the steps which 
were taken to integrate an operating system into the Sycor 
440 / Mi IS environment. 



IV 



SYSTEM DEBUGGING TOOLS 



A. SYCUR HARDWARE 



At the outset of tnis thesis projects the task of 
deougging MTS and incorporating a user ooerating system 
seemed to oe a well defined task; however, it soon became 
aoparent that the tools available for deougging MTS system 
code were extremely limited. The Sycor 340 communications 
terminal provided the ability to halt program execution at a 
specified memory location or breakpoint/ to examine the 
contents of memory locations and to modify tne contents of 
memory locations prior to resuming program execution. 
Although these features proved to oe extremely valuable/ 
greater oebugaing capability was necessary to realize tne 
thesis objectives. Efficient debugging reaui red tne ability 
to examine the general purpose registers and the program 
status word (PS'W) which contains tne accumulator and the 
carry/ zero f parity/ plus/ and minus flag bits. To 
effectively debug conditional loaic/ the ability to specify 
more than one breakpoint was required. Other debugging 
functions which were needed included the capabilities of 
filling memory/ movino memory/ and transferring information 
between mini-disk and RAM, 



B. MTS DEBUGGER TOOL ( MDT ) 

For the reasons listed above/ the MTS Debugger Tool was 
aevelopea as a first step in the thesis project. This 
software tool was written as a distinct system module which 
interfaces directly with MTS. Tne program utilizes MTS 
service calls for a i splay terminal and mini-disk I/O and for 
other system functions. MDT incorporates the option of 
setting two breakpoints in memory to check program 
oranching. Another feature of the W DT is the ability to 
start or to resume execution of a system program with 
interrupts disabled. This feature was necessitated -for 
deougging sections of MTS code where the system interrupts 
are disabled. Agditional M DT facilities include filling 
memory^ setting the contents of memory locations/ displaying 
contiguous 64 Dyte images of memory at the terminal/ reaoina 
a specified floppy disk from the mini-disk into memory/ and 
transferring data between RAM and the mini-disk. 

The MDT greatly enhanced tne debugging phase necessary 
for providing an operating system on the Sycor 44u hardware 
for student use at NPS. The debugger resides in the system 
area of memory where it is still available should - the need 
for it arise. A detailed guide for the use of the MDT is 
contained in the comment section of the source program which 



is included with tne MTS p rogram Listings 



V 



MTS ENHANCEMENT 



Developing the MTS debugger not only facilitated the 
de Pugging of M TS cod e/ but it also hastened the remaining 
development of the basic MIS program. With the aid of MDT 
several procedures in the monitor and the service modules of 
MTS were modified to accommodate an operating system. Major 
areas of modification to the original MTS code are discussed 
in tne following sections. 

A. FlLfc INTEGRITY 

Procedures for the protection/ uno ro t ec t i on / and 
restriction of virtual floppy disks with a four character 
"passkey" were developed to replace the dummy procedures in 
the original MTS code. It was felt that the completion of 
these routines/ which provide for read and write protection 
of user file space/ was essential since MTS would eventually 
support a multiuser environment. A detailed explanation of 
these M[S commands is presented in the MTS User's Guide. 

D. SYSILM LOAD PROCEDURE 

Another enhancement to m T S involved a modification to 
the MTS / SYCOR interface which permits the loading of MTS 
from the Sycor 440 mini-disk. This modification which was 
made to the MTS initial program load routine causes a 
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relocation of MTS code from 1 ? 0 0 H to OH in memory as the 
system is loaded. This shift of code is necessary for the 
successful operation of MTS code. This change resulted in 
an improved user environment and eliminated a tedious five 
to ten minute load from cassette t a o e , reolacing it with a 
much simplified ten to fifteen second process. At the same 
time* this modification allowed for the disconnection of the 
Sycor 3^0 communications terminal which was used for loading 
MTS from cassette tape. Removing dependency on this major 
piece of system hardware is considered a significant system 
enhanc emen t . 

C. PRINTER INTEGRATION 

As the dedugaing of MTS code neared completion, a 
decision was made to incorporate the Centronix serial 
printer as part of the system. Previously, a microcomputer 
user who desired a hard copy of a proqram needed to 
interface with the PDP-11 minicomputer's line printer. 
Since there is only one data transmission line between the 
PDP-11 and the microcomputers located in the NPS 
microcomputer laboratory, only the user working at the 
microcomputer system with this data line connection could 
access the PDP-tl’s line printer. Thus, a user with Doth 
microcomputer and ana PDP-11 familiarity could, after some 
inconvenience# obtain a printed listing. Obviously, this 
user environment is not sat i factory for the programmer who 
desires to work only with a microcomputer system. For this 
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reason/ line or inter incorporation with MTS was considered 
essentia) . 

Certain factors greatly affected the design of the 
printer interface with MTS. Originally/ the concept of 
using spool files for each user desiring the use of the 
printer was given much consideration. This concept was in 
keeping with the overall virtual design of MTS. It would 



allow a user to 


output his text 


t o 


a printer 


spool 


file 


on 


the mini -disk and 


then permit him 


t o 


continue 


wo r k 


a t 


h i s 


terminal. The i 


nformation in 


the 


spoo 1 


file 


would 


be 



printed as the Printer became available. In theory/ the 
concept of spooling printer information for each user seemed 
an ideal solution to printer management and was compatible 
with the overall design philosoony of MTS. however/ the 
operation of the MTS swapoing function showed tnat the 
mini-disk access times were too high to provide efficient 
direct memory access (DMA) for large spool files. The fact 
that the memory buffer for the output to a printer file 
would be bl2 bytes/ the lenath of a mini-disk sector/ meant 
that a considerable numoer of mini-aisk accesses would oe 
reguired to write to a spool file ana to output spool file 
information to tne printer. Several users making 
simultaneous recuests to use the printer would cause a 
bottleneck in the overall system operation. For this 
reason/ it was decidec to dedicate the printer to the first 
user request i ng the device and to advise all other users 
reguesting the or inter that the device is in use. Since all 
four terminals are located in the same area of the 
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microcomputer laboratory, 



this decision seemea to be a 



Reasonable alternative. 

Because of provisions made in the original design of 
MTSf implementation of the printer routine was accomplished 
with few problems. A 5 1 byte buffer area was available 
between locations 100H and 3G0H in the system area of 
memory. The printer routine was coded such that each time 
this buffer is filled with data directed for the printer, 
the contents of the buffer is saved in a soecific print file 
on the Sycor mini-disk. This process is continued until the 
control -Z character is transmitted indicating an end of file 
(EOF). Ihe EOF character triggers the initial data output 
to the line printer. Once the intitial character has been 
output, the printer interrupt causes the remainina data to 
be output to the printer on an interrupt basis. When the 
EOF character is encountered, the or inter control flag is 
turned off and the printer buffer pointers are reset. 

The recovery feature of MTS was modified to accommodate 
the serial printer should a system crash occur during the 



output of information 


t 0 


the 


printer. 


This feat ure 


t s made 


possible since all 


o f 


the 


printer 


parameters are 


saved 


i n 


the recovery file with 


t n 


e other syst 


em parameters 


needed 


to 



recover MTS after a system crash. If the user who has 
control of the printer at the time of the malfunction is not 
the task which caused the problem then his printer output 
will be reinitiated when MTS recovers. 
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IMPLEMENT A r ION OF AN OPERATING SYSTEM 



A • OPERAUNG SYSTEM SELECTION 

n h e n the debuagi nc of MTS code was near completion the 
modification of an operating system for the Sycor system 
whicn would supoort program development in the WPS 
microcomputer laboratory could oe undertaken. Initially* a 
decision was made as to which operating system to implement 
with MIS* the choices being either I S I S - 1 1 * which is the 
Intel Coro, system or CP/m, which was developed by Digital 
Research. Refs. d and 15 contain information pertaining to 
these systems. Since the oasic M T S design would have to oe 
modified to accommodate ISIS-II and because the CP/M 
operating system with its support programs was already in 
use in the NPS microcomputer laboratory* a decision was made 
to incorporate CP/M on the Sycor 440 / MTS system. 

6. OPERAUNG SYSTEM IMPLEMENTATION 

Prior to loadinq the CP/M ooerating system onto the 
Sycor 4 4 U mjni-disk certain modifications were necessary to 
account for the difference in system addresses between the 
Intel lec 8 type microcomputer where CP/m was currently hei na 
used and the Sycor 440 system with resident MTS. Following 
the guidelines of Refs. 4 and 5* a customized basic I/O 
proqram (CBIOS)* a customized CP/ M loader program (CLOAD)* 



ana a program to store CBIOS and CLOAD onto the mini-disk 
(PUISYS) were written with address and offset changes to 
match CP/M with the Sycor svstem. 

The main difference oetween the two systems is that the 
version of CP/M which was written for tne Intellec B Moa BO 
microcomputer is stored starting at memory location 0 with 
the command control program (CCP) and the basic disk 
operating system (BOOS) starting at hexadecimal location 
29Q0H. Also; the user or transient program area (TPA) 
begins at hexadecimal location 100H. On the Sycor u 4 0 CP/M 
has been modified such that code is stored at memory 
location UOOQH witn CCP and BOOS stored starting at location 
o900H in memory. The TPA is based at memory location 4l00ri. 
This change allows for tne loadinc of MTS code between OH 
and 4000H. An exception to this description of memory 
storage occurs if a user desires a larger memory image of 
32K bytes or 4BK bytes of RAM. In these cases; the startinq 
location of the CCP ana BOOS modules would be at either 
A900H or F900H/ depending on tne PAM image size desired. 
The CBIUS and CLOAD programs for these larger CP/M systems 
must also be modified to accommodate these changes. A 
depiction of a memory image of CP/M for a loK system with 
MTS loaded is shown below. 
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******************************* 



* CBIOS * 

/ E 0 OH * * 

* BDOS * 

/200H * * 

■ * CCP * 

690 OH - - - — - - - - — — * 

* * 

* TP A * 

* * 

4100H * * 

4000H * * 

★ * 

* MTS * 

* * 

★ * 



OH ******************************* 



CP/M MEMORY MAP 

Once the CP/M ooerating system was stored on disk/ tne 
task of recomoiling various utiltv programs was started* 
The text editor (ED) and status (STAT) orograms were tne 
first programs to oe modified ana loaded on the mini-disk. 
Regeneration of an object module for these utility proorams 
with a load address of 4 1 0 0 H vice 100H was the only code 
change made to the utility programs. After a new 
nexadecimal ooject file was generated and stored in the 
PDP-11 file soace/ the Sycor 440 Interactive Teletype 



Simulator (ITS) program was utilized to transoort the object 
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CP/M file directory. 
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VII 



CONCLUSIONS AND RECOMMEND AT I ONS 



The primary goal of this thesis project was to implement 
an ooerat ing system on the Sycor 440 microcomputer system 
capable of support i ng program development in the NPS 
m i c rocompu t e r laboratory, Enroute to this goal/ the 
debugging and modification of exist ina system proarams which 
had been written during the design and development phase of 
the Microcomputer Timeshared System was necessary. 

The first steo toward this qoal was the development of 
the MIS deougqing tool. This software debugger complemented 
the existing Sycor mocel 340 terminal hardware debugger and 
facilitated the debugging and expansion of the original MIS 
code . 

The design of MTS provided areas for enhancements to the 
basic system. Procedures were written to protect/ restrict/ 
and remove protection from user file space. It was felt 
that these routines were essential to provide file security 
on a multiuser system. The Centronix serial printer was 
integrated into MTS and is the only printer in the NPS 
mi c rocomput er laboratory which directly interfaces with a 
microcomputer system. This additional resource represents a 
valuable tool for m i c rocompu t e r program development. 



Fo 1 lowing 


tne guidelines of Kefs. 


4 


and 


5 


the 


modification 


o f 


CP/i v was 


accoup 1 i shea 


and 


the 


r e v i sed 


operating svstem 


was 1 oaded 


onto the Sycor 


440 


system 


• 





21 



During the implementation of CP/M on the Sycor 440, it 
was found that certain enhancements to the Sycor hardware 
woula greatly improve the overall system performance. These 
enhancements include a fast multisector mini -disk controller 
which is oresent I y under development at Sycor Inc. This 
enhancement should be given high priority since the response 
time of the system with three or four users logged into MTS 
/ CP/M is noticably slower than most timeshared systems. 
Also, to assist in future integration of the Sycor 440 with 
the present microcomputer facilities, the addition of the 
Sycor floppy disk drive woula be auite beneficial. 

A secondary goal of the thesis project was to continue 
an evaluation of M L - 8 0 as a large system development 
language. During the modification of MTS code, it was found 
that ML-80 provided many advantages over assemcly language 
for microcomputer programming. The algebraic notation 
provided oy the language proved to be especially convenient 
for working at the register level. Also the readability of 
source code was extremely valuable during the initial phase 
of studying and understanding MTS. The drawbacks of ML-bO 
listed in chapter VI of Ref. 1 were found to be valid. 

Besides the recommendations for improved hardware 
mentioned aoove, there are several areas for future MfS 
development. These areas include the integration of the 
cassette tape drive and the R S - 2 3 2 asynchronous 
communications interface into the existing MTS 
cent igurat ion. 
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APPENDIX A 



MTS USER'S MANUAL 



The puroose of this document is to orovide the user with 
the information necessary to utilize the Microcomputer 
T imeshared System (MTS). This manual was originally prepared 
py K . J. Brown and C. R. Bullock in March 1977 and revised 
Oy S. J. tarro and B. L. Knouse in September 1977. 

The contents of this manual include information on 
setting up the Svccr 440 System for use with MTS, loading 
and initializing MTS, and interfacing with the MTS and LP/m 
operating systems. Sections A and b oroviae a general 
description of MTS design concepts and the Sycor 440 System. 
Section L provides the detailed information necessary to 
interface the Sycor 440 System and M(S. Section D contains 
information on tne terminal design, key functions# and 
system commands which enaole the terminal user to 
communicate witn S . Section E aescrioes the MTS status 
line display and defires tne various messages displayed oy 
MTS. Section F details the services orovioea for a user 
program oy M [S# and the limitations on a user program 
running in the MTS environment. Section G provides tne 
information required to convert programs written for ^ ne 
oasic version of CP/M to the M TS version of CP/ M . The 
complete MTS desion specification and implementation 
information is contained in Ref. 1 and Ref. b. 
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Mrs CONCEPTS AND DEFINITIONS 



The acquisition of the Sycor 440 Clustered Terminal 
Processing System provided an opportunity for development of 
a shared environment for microcomputer research and 
development. In response/ the ^icrocomouter limeshared 
System (MTS) was designed and built to orovioe the basic 
machine interface ana system management functions necessary 
for a shared environment. 

The purpose of M TS is to provide an interface between 
the bare Sycor 440 machine and up to four user tasks 
executing concurrently. The V TS environment/ as viewed ov 
the user, provides all the microprocessor facilities 
required for m i c r oc omou t e r research and development. Prom a 
system point of view# M IS manaaes the available hardware to 
ensure that the hardware resources are equitably and 
efficiently allocated to competing user programs. MTS is 
designed to interface with a version of C P / M modified to run 
on the Sycor 440. This enables all systems and proarams 
designed to run with tne CP/M operating system to run on the 
Sycor 440 with minor modifications (such as a change in load 
address). This includes all the development facilities 
availaole with CP/M, such as the text editor, dynamic 
debugger, assembler, etc. A list of references for CP/M and 
its facilities is contained in section G Ref. 3 through Ref. 

a. 
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SYCOR 440 HARDWARE DESCRIPTION 



The Sycor 440 Clustered Terminal Processing System at 
NPS is composed of a control unit containing a cassette tape 
drive* four disolay terminals* a Centronix matrix printer, 
and a Sycor Model 340 Communications Terminal, 

The control unit is the heart of the 440 system. 
Contained within a waist-high caoinet are random and control 
logic including two 8080 chips* b4K of random access memory 
(RAM), interfaces for all peripheral devices, a five 
megaoyte fixed dis<* as well as the aforementioned cassette 
tape drive. 

Located together cn the front of the control unit are an 
UN/OFF/RESET <eyloc< and system status oanel. Turning the 
keylock to the RESET position activates a oiaanostic 
bootstrap program located in read-only memory (ROM). This 
oootstrap proaram performs several diagnostic tests on tne 
CPU, memory, and system load device (cassette or mini-disk) 
and then initiates system loadina. The status of the 
diaanostic tests is indicated oy a series of red liahts on 
the system status panel. These lights are turned off in 
sequence as each phase of the test is successfully 
completed. when all red liahts have been turned off* three 
green lights on the panel will remain lit to indicate that 
all power suocl i es are functioning normally. There is also 
one additional red light at the bottom of the system status 
oanel which only comes on if the temperature inside the 
control unit cabinet exceeds normal operating limits. 



One of the two 8080 chios located in the 440 control 



unit serves as the system CPU. The 8080 instruction set 
consists of the 78 data transfer, arithmetic, logical# 
branch# stack# I/O# and machine control instructions 
described in Ref# 9. The Sycor 440 provides a comprehensive 
set of prioritized i nterruots including a timer# peripheral 
device# and auxiliary storage device interrupts. Passing 
control information ana data between the 8080 CPU and 
peripheral devices is accomplished by utilizing the I/O 
ports (called latches in Sycor literature) provided on the 
8080 chip. 

The second 8080 chip found in the control unit acts as a 
controller for the mini-disk. The mini-disk is a single 
platter# movable head# fixed disk blocked into 51? byte 
sectors. There are 800 trac<s on the disk with 15 sectors 
per track. Data transfer between RAM ana the mini-disk is 
via direct memory access (DMA). The mini-disk controller 
communicates with the host *080 CPU through a 13 byte disk 
control block (DCS) located at a fixed location in memory. 

Peripherals supoortea by the Sycor 440 system include 
binary synchronous and asynchronous communication devices# 
up to eight disolay terminals# serial and line printers# and 
card readers. The NPS con f i gurat i on has four display 
terminals consisting cf a t y pe w r i t e r - 1 i k e keyboard and CRT 
display device. Each terminal displays a D M A image of a 576 
byte terminal buffer located in RAM. Keyboard input is 
accomplished by software translation of a keyboard matrix 
code into the corresponding ASCII character code. For 
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hardcopy output the NPS 440 includes a Centronix serial 
matrix printer. 

Several different auxiliary storage aevices may be 
attached to the Sycor 440 in addition to the mini-disk. 
These include magnetic taoe drives/ cassette taoe drives/ 
ana floppy disk drives. The NPS configuration includes a 
cassette taoe drive I ocatea in the control unit. This drive 
provides compatibility between the Sycor 440 system and the 
i^oae) 340 deougaer. 

The Model 340 Communications Terminal is a complete 
system in its own right wnich is marketed by Sycor for 
remote job entry CRJE) apo I i cat i ons [101. v\hen utilized as a 
hardware dehuqqer/ the 340 is augmented with 4 k of PAM and a 
backplane couolina to a soecial wire-wraooed interface board 
in the 440 control unit. The 340 debuoger is provided with 
a software Package which includes provisions for loadina and 
dumping hex format program files between cassette taoe and 
440 RAM/ examination and modification of individual 
locations in 440 memory/ inserting breakpoints ana traps in 
programs executing on the 440/ and s i ngl e-steppi na through a 
program executing one instruction at a time [121. 

There are several hardware characteristics of the Sycor 
440 system which strongly influenced the implementation of 
MTS. The most important of these are: 

(1) 8080 CPU architecture 

(2) terminal desiqn 

(3) mini -disk interface 

(4) sinale-state CPU 
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(b) lack of memory crotect ion 
The impact which each characteristic had on the 
implementation of MTS is covered in Ref. 1. 



design 



and 



3o 



C. SYCOR 440/MTS INTERFACE 

The Microcomputer I i meshared System was designed and 
built for use on the Sycor 440 Clustered Terminal Processing 
System. For this reason MTS depends heavily on specific 
features of the Sycor implementation of an d080 based 
microprocessor. This dependence includes reliance on Sycor 
supplied software as well as the 440 haraware» but becomes 
most apparent to the user in the two areas of loading the 
system and maintaininc system files. 

1. Loading the System 

The MTS object module resides on the mini-disk in a 
relocatable format acceptable to the Sycor System Loader. 
The System Loader is called in to memory Dy setting the 
internal system definition switch to 3 and turning the 
ON/OFF/RESET keylock on the control unit to the RESET 
position. After MTS is loaded execution begins with the 
initial program load (IPL) module. The query RECOVERY? 
(Y/N) is displayed at terminal 0. The operator should enter 
Y if recovery is desired# otherwise N. In the event that 
the IPl operation is halted due to a Hie access error (file 
non-existent or cannot be read) the message IPL AbORTED 
followed by a system file name will appear at terminal 0. 
After correcting the problem the operator may reload in the 
normal manner. When the IPL ABORTED message is accompanied 
by the HARDWARE ERROR terminal alert it indicates that an 
abnormal completion code was returned by the mini-aisk 
controller after a read operation. Further investigation 
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using the Sycor utility programs FIXNAR or ..ZAP may be 
required to identify the oroblem fill. 

To summarize/ loading M TS involves the following 

steps : 

(1) set internal system definition switch to 3 

(2) turn ON/OFF /RESET keylock to RESET 

(3) wait two minutes while mini-disk reacnes operating 
soeed and all red lights on control unit status oanel 
go out 

(4) respond to RECOVERY? auery with N to initialize a new 
system or Y to recover from the last operating 
session. 

Loading the Sycor operating system involves the 
following steps: 

(1J set internal definition switch to 1 

(2) turn ON/OFF/RESET key1oc< to RESET 

(i) wait two minutes while mini-disk reaches operating 
speed and all red lights on the control unit status 
panel go out 

(4) the Sycor operating system will resoona with the 
prompt READY . 

2. Recovery File - .MTSRCVP 

MIS supports limited recovery after a user task 
causes a system crash. The recovery feature is implemented 
by copying the 1 contents of the system state block (SSB) 
after each swap to a mini -disk file known as the recovery 
file. Since the SSB defines the state of the system at any 
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instant* recovery may be accomplished by reloading the SSB 
from the recovery filer deletinq the task causing the crash# 
and oroceeding with normal execution. These actions are 
performed by the MTS IPL module when the answer to the 
RECOVERY? query is Y. 

whenever MTS is running# a double-sector file named 
.MTSRCVR must be listed in the mini-disk directory. In the 
event this file is deleted# it may be recreated under the 
Sycor operating system by using the command 

CREATE .MTSRCVR N = 2 

The contents of the recovery file at the completion of an 
operating session are only meaningful if recoverv will oe 
requested when MTS is next loaded. Therefore# under normal 
circumstances this file is not needed when MTS is not 
runn i ng . 

3. Swao Files - .MTSSwPx 

One of the most fundamental requirements on any 
timesharing system is maintaining independence of user tasks 
executing concurrently. M TS satisfies tnis requirement dy 
maintaining physical as well as logical separation of all 
user tasks in the system. Associated with each of the four 
terminal tasks is a mini-disk file used to store a core- 
image of the task when it is waitinq for the CPU or blocked 
pending some I/O operation. At any given instant a task may 
reside on the disk in its swap file or in memory# but at no 
time can two or more tasks reside in memory simultaneously. 

A task's swap imaae consists of 17 bytes reserved dv 
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MTS for environment and virtual device control data followed 



by ud to 48,896 bytes of user task memory image. Thus, the 
maximum allowable swap image is approximately 4bK bytes. 
There is no minimum value for the size of a swap image. The 
swap image size or, ecu i va 1 en t I y , the amount of memory space 
available to the user is variable from 0 to 4 8 K . In fact, 
the user is encouraqec to use the smallest swap image which 
satisfies his requirements as smaller swap imaaes tena to 
improve system responsiveness. 

A 48K swao image will fill 9b sectors on the mini- 
aisk. Therefore each of the four swao files should normally 
be 9b sectors Iona. In the event that mini-disk space is 
limited, or that user tas<s do not requre a 4bK swap image, 
MTS will automatically adjust to any tile size greater than 
16h (32 sectors). Sixteen kilobytes was selectee as the 
minimum and default system size since it provides a 
reasonable amount of memory for running the C P/ M operating 
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The I PL 


module 


performs 


a size 


test on 


each 


swao 


file to 


ensure 


that 


it is at 


least 


32 


sectors 


1 onq . 


MTS 


cannot be 


loaded 


i f any swao 


file 


i s 


sma 1 1 e r 


than 


32 



sec tors. 

If it becomes necessary to change the size of any or 
all swap files, the file(s) must first be aeleteo from the 
mini-disk directory. This is accomplished under the Sycor 
operating svstem using the command 

DELETE <filename> 

where <filename > may be . M T S S t* P 0 , .MTSSWP1, • M T S S ii P 2 , or 

.MISSWP3. The number in each case indicates the terminal 



with which tne file is associated. After the file has been 
deleted^ it may be recreated by using the command 

CREATE <filename> N=96 

for each file which has been deleted. If swao files smaller 

than 48K are desireC/ the value of N in the CREAIE command 

string should be two times the reauired memory space in 
kilobytes/ but no less than 32. 

The contents of the swao files upon completion of an 

MTS operating session are only meaningful if recovery will 

be requested when V TS is next loaded. Under normal 
circumstances these four files are not required when MTS is 
not running. 

4. Configuration File - .MTSCNFG- 

As explained in section A.2.C/ MTS identifies 
virtual floopy disfcs by a logical disk number ranging from 0 
to 31. Since each virtual floppy disk actually resides in a 
mini-disk file created under the Sycor operating system/ 
there must be some mechanism for maopinq a logical aisk 
number into a filename contained in the mini-disK directory. 
This function is performed by the configuration file 
.MTSCNFG. 

The configuration file is made up of 32 entries of 
thirteen bytes each contained on a single mini-disk sector. 



Each entry has the format 



I 

I 



FILENAME 



I 

I 



KEY 



; P A J 



0 78 11 12 

where FILENAME is the 0 to 8 byte name of the virtual floopy 
disk file as it appears in the mini -disk directory; KEY is a 
0 to 4 byte protection kev; PA is the protection attribute 
of the virtual d i s x # i . e . * P 1 for read/write protection/ • R • 

for write protection only (restricted access)# and blank for 
no protection. The logical disk number for each entry is 
simply the position of that entrv within the file. For 
example# the first entry is assigned logical disk numoer 0# 
the last entry 31# anc the entrv which is preceded oy 17 
other entries becomes number 17. 

The configuration file is read Oy MTS during tne 
initialization process performed Dy the 1 P L module. Tne 
filename is extracted from each entry and input to a routine 
which searches the mini- disk directory. <^hen a match occurs 



the m i n i - a i s k 


addr ess 


for the f i 
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reaa 


from tne 
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in a virtual 
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disk 


map table. 



If no match occurs for a given configuration file entry, the 
corresponding logical disk number is m a r < e d not availaole. 
Any suosequent attempt to access that virtual disk will 
result in the terminal alert DISK NOT AVAIL (E.3). 

Since the information contained in the configuration 
file is of a permanent nature and can only be recreated with 
great difficulty# the file .MTSCNFG should never be deleted 
from the mini-disk file directory. In the event the file is 
deleted erroneously# a new file may be created under the 



Sycor operating system using the CREATE ana BATCH commanas 
and a backup cassette labeled ".MTSCNFG". The commanas are 
entered as 

CREATE .MTSCNFG N=1 

RUM- BATCH 1=/CSST 3=. MTSCNFG 

with .MTSCNFG mounted in the cassette drive. These commands 
will build a new file directory entry for .MTSCNFG and 
establish a basic con f i au r a t i on file with 32 entries of the 
form .DISK*, where x ranges from 0 to 31. 

The configuration file may be modified by two 

methods. 

First, immediately after the oasic configuration 
file has been created and loaded it may be modified when 
running under the Syccr operating system. Sycor orovides a 
data entry free form mode which allows the terminal operator 
to examine and modify the contents of the file [111. 
Extreme care must be exercised when uoaating .MTSCNFG to 
align each entry properly in the file. MTS assumes the file 
will be in the proper format when read, and maxes no attempt 
to validate individual entries. Mote that this method may 
only be used after the configuration file has been loaded 
and prior to running V TS. Once MTS has been executed the 
next method must be used. 

lhe configuration file may be modified utilizing tne 
MTS commands Protect/ Restrict/ and Unprotect. These 
commands form the most common method for modification of 
virtual disk protection attributes. Protect/ Restrict/ and 
Unprotect are detailec in section D.3. 
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Printer File 



MTSPRT 



MTS supports the use of the Centronix serial matrix 
printer. The printer feature is implemented by buffering 
characters in memory until the 512 byte orinter buffer is 
full. Next the buffer is written to the mini -disk file 
.MTSPRT and the buffering ooeration is restarted. When the 
eng of file character is received? any data in the buffer is 
copied to .MTSPPT. Finally? the file is read into memory 
and outout to the printer under interuot control. 

In the event that .MTSPRT is deleted? it may be 
recreated under the Sycor operating system oy using the 
command 

CREATE .MTSPRT M=<file size> 

where < f i 1 e size> is the length of the file in 512 byte 
mini-disk sectors. Because all information is written to 
the orinter file before it is orinted? the user must insure 
that the file size is large enough to handle the worst case 
situation. If the user discovers the printer file size must 
be increased? the Sycor ooerating system commands 

DELETE .MTSPRT 

CREATE .MTSPRT N=<file size> 

may be used . 

o. Virtual Floopy Disk Files 

Each virtual flopoy disk, resides on a block of 
logically contiguous mini-disk sectors. This block must be 
allocated using the facilities orovioed by the Sycor 
operating system, specifically the command 



CREATE <filename> N = < f i 1 e s i z e > 



where <f i I ename> is a l to 8 character name to be entered in 
the mini-disk directory and configuration file# and <file 
size> is the length of the file in 512 byte mini-aisk 
sectors. For the basic configuration file described above 
the <fi1ename> is of the form .diskx where x ranges from 0 
to 31. For the standard 256K byte floppy disk <file size> 
equals 512/ i.e. (256 * 1 02a ) /5 1 2 = 5 1 2 . 

where a physical f l opoy disk has a fixed capacity of 
256K bytes/ an MTS virtual disk may have any convenient size 
up to 25t>K bytes. M r S assumes that the disk image is made 
up of contiguous 128 byte floppy disk sectors starting with 
track 0 sector 1/ proceeding through the 2t> sectors of track 
0 to track 1 sector 1» and so on until track 7o sector 2o or 
until the virtual disk file is full. If the virtual disk 
file size is less than 512 mini -disk sectors/ less than 77 
floppy disk tracks will oe addressable. 

It is important to note that MTS only recognizes 
virtual floppy disk files which are entered in the 
configuration file. The loaical disk number associated with 
a given virtual floppy disk file is determined by chat files 
position in .MTSCNFG. When the file is initially entered in 
the configuration file a protection key and protection 
attribute may also be entered. 



a5 



D 



mts/user terminal interface 



1. Terminal Interface Design 

The general format of each terminal display is as 

f o 1 lows: 
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The numbers are decimal and specify character oositions 
within the status line and display buffer. 

a. Status Line 

The terminal status line is used by MTS to 
display three types of status information: 

(1) The current virtual drive and floppy disk assianments 
for that terminal. 

(2) The size of the user’s swap i m a n e * i.e. the amount of 
memory soace currently available. 

(i) Error message alerts croduced by M TS system commands* 
or resulting from user proaram calls on the DISPLAY 



MSG service routine (see F.2.) 



The status line display format and contents are 
discussed in detail in section E. 

0. Display Buffer 

The display buffer can hold uo to a maximum of 
512 characters. The display buffer also acts as an input 
buffer, holding the input data until the user’s program 
requests it. Due to the unavoidable delays in user program 
response caused by swapping and aagravated by the relatively 
low data transfer rate of the mini-disk, the MTS terminal 
interface provides character echoing and simple line editing 
features. This ensures reasonaole response times to key 
activation by the user. Thus, incut aata can not be 
considered available to the user's prooram until an incut 
line termination character has been received by MIS. To 
estaolish an input buffer for a program, the user enters the 
data and terminates the line by hitting the NEWLINE or ENTER 
keys on the keyboard. This establishes that line as an 
input buffer available for processing oy the user's program. 
^ h e n NEwLINE is entered MTS issues a carriage return and 
line feed to the terminal screen. ENTER causes termination 
of the current line but MTS does not output .a carriage 
return and line feed to the terminal screen. ENTER is most 
effective when CP/M commands are entered because more 
information can be oresented on the MTS terminal. Note that 
the key combinations ’I/O CTL M • or ’SHIFT C R ' (on the 
number pad) will also result in the termination of an input 
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line 



Either of these keys, as well as NEWLINE and ENTER, 



may be used for line termination. 

Once an incut buffer has been established the 
user may continue to input data on the next line. The user 
may use any of the line editing or other cursor control 
features on this new line of input data. However, this new 
line may not be terminated until the user’s program has 
processed the previous incut buffer (see terminal alerts 
below) . 

Each character output from the user’s program is 
disclayed at the current cursor position. Each outout 
results in all input buffer o o inters beina reset to the 
character position at the end of the output data. Thus, new 
I/O will start at this point. This implies that if the user 
had been in the middle of entering data when the output 
occurred, it must be reentered. 

c. Terminal Alerts 

The MTS terminal interface provides the user 
with either a visual or audio response to eacn key 
depression. Normal visual response is provided by display 
of the entered character and/or movement of the display 
cursor. The display cursor is a blinking underscore 
character which marks the current Position on the screen. 
Data is always entered and displayed at the current cursor 
posi t i o n . 

The audio responses consist of either a Deep or 
click at the terminal. A terminal beeo alert will be 
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generated for any of the following conditions 



(1) An input buffer is waiting to be processed by the 



user ' s progr am 


and 


the 


terminal user 


a 1 1 empt s 


t 0 


terminate a 


new 


i n p u t 


1 i n e . 








An attempt i 


s made to 


move 


the cursor bac k 


past 


the 



start of the current line. For example/ attempting to 
delete the previous line or character after the line 
has been entereo by a termination key will result in a 
beep . 

The terminal click alert is associated with the 
display scrolling feature. Since the display buffer also 
acts as an incut buffer, scrolling the display when the 512 
byte display buffer is full could destroy input data wnich 
has not yet been processed. For example, the user could be 
entering a 512 character string. Uoon termination of that 
input line, MTS will lock out scrolling until the user's 
program has orocessec the first 64 characters. This ensures 
that the input data is not destroyed by the scrolling 
operation. This scrolling lockout is indicated to the user 
by a terminal click alert. 

2. Terminal key Functions 

The terminal keys fall into five basic functional 
groups: keys for entry of normal character strings, keys 
which affect the interpretation of the input key character? 
input line termination keys? line editing and cursor control 
keys? and number oad keys. These keys and their functions 
are described in the following subsections. within tne 



f unc t ion 


descript ionsr 


current position” 


refers 


t o 


the 


current 


cursor position 


on 


the sc reen . Any 


reference 


t o 


the 


di sp 1 ay 


of a character in 


the current posit i 


on / also 


i mo 1 i es 


that the 


current oosition 


1 s 


incremented by 


one . 








a. Character Str 


i ng 


Keys 









KEY/SWITCH FUNCTION 



0-9 Displays the input numeric 

character at the current 

position on the screen. 

Special Displays the input special 

Characters character at the current cursor 

position on the screen. 



A - Z Displays the input alphabetic 

characters at the current 
position on the screen. 



Alphabetic 


Characters 


are 


d i sp 1 ay ed 


i n upoe r or lower 


case 


depend i ng 


on the kev mode 


(see 


SHIFT and 


FS C under Entry 


Mode 



Keys) . 

Tao/Skio Disolays a (hori zonal ) tab sym- 

bol at me current position on 
the screen. 
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b . Entry Moae Keys 



KEY /SWITCH 


FUNCTION 



FUNCTION 


Defines the interoretation of 


SELECT (FS ) 


keys for special functions as 

defined in this section* 


I/O CONTROL 


Defines the i n t e ro r e t a t i on of 


(I/O CTL) 


keys for soecial functions as 
aef ined in this section. Also 
used in conjunction with the 
alphabetic keys to generate 
appropriate ASCII control codes. 


SHIFT 


Sets the keyboard to upper or 
lower case. 


FS C 


Sets or clears the alphabetic 
key entry mode to upper or lower 
case. Functions as a shift key 
lock. 


SHIFT RS 


Causes a RSI 7 instruction to oe 


(RESTART) 


executed which transfers control 
to memory location 4038h. This 
key is used with the CP/M DDT 
proar am . 



SI 



c. Line Terminat 
KEY/SWITCH 

NEW LIME; enter; 
I/O CTL m; 

SHIFT CP; 



ERROR RESET 
(MTS CMD) 

d. Line Editing 
KEY/SWITCH 

MEXT FMAT; 

I/O CTL U 
(Line Delete) 

BACK SPACE 
(Char Delete) 

FS S or I/OCTL S 



ion Keys 



FUNCTION 



Terminates the current line and 



es t ab 1 i shes 


the 


just 


comp 1 e t ed 


input line 


as 


an input buffer 


ava i 1 ab 1 e 


for 


process i ng by t he 


user ' s orogram . 


The 


cursor is 


d i sol eyed 


a t 


the 


left most 


position of 


the 


next 


line exceot 


for ENTER 


* 


h i c h 


leaves tne 



cursor at the current position. 

Specifies that the inout line 
which it terminates is to oe 
processed by M I S as a system 
c ommand . 

and Cursor Control Keys 
FUNCTION 



Deletes all characters from the 
current position bacx to the 
start of the current line. 

Deletes the previously entered 
character. 

Clears the display buffer (not 



(Clear Sc reen ) 



the status line) and leaves the 



current oosition at the upper 
left position of the display 
buffer, 

<--- (Cursor Left) Moves the current position one 

to the left. Does not delete 
previous entry, but allows 
reent ry , 

--->(Cursor Right) Moves the current Dosition one 

to the rignt. Does not delete 
previous entry, out allows 
reentry. 

e. N umber Pad Keys 

The number pad keys consist of 10 numeric digits 
and 8 ASCII control characters located on tne right side of 
the keyboard. The digits function in the same manner as the 
other numeric digits on the Keyboard. The ASCII control 
characters are disolayed when the SHIFT key is depressed in 
conjunction with the aoproori ate key. The only control 
characters which affect the aisclay are SHIFT CR and SHIFT 
RS (see Line Termination Keys). 

3. MfS System Commands 

System commancs are a set of commands which orovide 
the user with a means of c ommun i c a t i na witn MTS from the 
terminal. These commands allow the user to login to MTS? 
quit MTS? attach virtual floopy disks? protect, restrict. 



53 



and unprotect virtual floopv disks? and specify the virtual 
memory size to be usee. 

a. General Characteristics 

A MTS command sequence may be entered anvtime 
after the initialization or reinitialization of MTS, The 
user enters the desired command sequencer followed by the 



ERROR 


RESET 


key . 


This 


s i anal s the operating 


system 


that 


there 


i s 


an 


MTS 


command 


to be processed. 


Anv errors 


detected 


i n 


the 


C ommand 


sequence will result 


in an 


error 


alert 


me ss aae 


displayed in 


the MTS message fi 


ela on 


tne 


status 


i 


ine. 


Section E 


describes tne MTS 


status 


1 i ne 



display and provides a summary of the error messaces. 
b . Svn t ax Rules 

The following rules should be used to interpret 
the svntax for each system command qiven in section D . 3 • e . 

(1) The command may be entered in upper or lower case. 
MTS converts the commands to upper case for 
p roc essi ng. 

(<?) bach entry in the command sequence must be separated 
by one or more spaces. 

(3) The entire command name may oe used to specify the 
command. However only the first letter of the command 
is reauired# as indicated by the underscore in the 
syntax. MTS validates only the first letter of the 
command name • 

(4) Parameters are shown in lower case and enclosed by 

inequality signs (< >). Each parameter name is a 



54 



variable which nrust be replaced by the appropriate 
character string or decimal number entered by the 
user. 

(S) Parameters may be required or ootional ; depending on 
the command. Gptional parameters are soecified by 
enclosing the parameter in brackets ( ( ] ) . If a 
oarameter is designated as optional/ it may be omitted 
from the commanc seauence Csee section D.3.d). 

16) The designation [<disk nr> ( / < k e y > 1 ) indicates that 
the entire parameter sequence is optional/ and that 
<disk nr> may acoear without /<key>. The converse/ 
however/ is not true. 

(/) If Parameters are entered in a command sequence they 
must be in the order specified in the syntax. For 
example/ <disk nr> may not be entered before <drive 
1 t r> . 

(8) The notation (error reset) at the end of each command 
strina is a reminder to the user that each MTS command 
sequence must be terminated by the ERROR RESET kev. 



c. Parameter Definitions 

The system commands have four types of 



pa r ame t e r s : 

(1) < d r i v e 1 t r > 
A through 
disk drives 

( 2 ) <0 i sk nr> - 
0-31. It 



- must be one o* the alphabetic characters 
H. It specifies one of the eiqht virtual 
available to a terminal user, 
must be a decimal number in the range 
specifies one of up to 32 virtual floppy 
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disk files on the Sycor mini -disk. 

(3) /<key> - a string of not more than four characters# 
always precedec by the special character 1 / ' which 
designates the string as a key oarameter. All valid 
ASCII characters are acceptable including olank, slash 
( / ) , and other special characters. 

(4) <memory s i z e > - must be a decimal value in the range 0 
to 48, which specifies the user’s swao image size in 
kilooytes. The default value for a user swap image is 
1 6 K . 

d. Default Parameter Values 

Certain system commands allow the user to omit 

the <drive 1 t r> anc/or <disk nr> oarameters. In these 

cases, M TS determines the aoprooriate drive letter and aisk 

number by scanning its allocation tables for the first 

available virtual drive or virtual disk, as appropriate. If 
one is found, it is allocated to the requesting user. 
Otherwise the aoprooriate error message is displayed. 

The <key> parameter is optional only if the disk 
requested has no protection attributes specified. Thus there 
is no default <key> value. A s oreviously mentioned, the 
default <memory size> parameter is lbK. 
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e* Command Descriptions 

The following pages describe in detail each of 
the system commands: 



( 1 ) 


ATTACH 


(2) 


LOGIN 


(5) 


PROTECT 


(a) 


QUIT 


(5) 


RESTRICT 


(6) 


SIZE 


(7) 


UNPROTECT 
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SYSTEM COMMAND 



ATTACH 



Function: 

To attach a virtual f 1 o o p y disk to a virtual disk drive 
for use by a user at a specific terminal. 



Synt ax : 

ATTACH [<drive 1 t r > 1 [<disk nr> [ / < k e y > 1 J (error reset) 



Description: 

This system command simulates the physical operation of 
loading virtual disk <disk nr> into virtual arive <drive 
ltr>. All parameters are ootiona)/ section D.3.d 
descrioes the default values when optional parameters 
are omitted. 



Error Messages: 



DRIVE NOT AVAIL 

DISK NR ERROR 
DISK IN USE 

DRIVE LTR ERROR 
DISK NOT AVAIL 



INVALID CMD 
KEY ERROR 



Drive letter has not been 
SDecified ana there is no drive 
presently available for assignment. 
Disk number entered is greater 
than 31. 

Disk number soecified is presently 
allocated with read/write access to 
another user. 

Drive letter entered is not one of the 
letters A throuqh h. 

Either disk number has not been 
soecified and there is no disk 
presently available for assignment; or 
the soecified disk is not 
available for assignment. 

Syntax error in command sequence. 

The specified disk reauires a key 
and either a key has not been entered 
or the entered key did not match. 



Exampl es : 



ATTACH A 3 /USR1 
A C 

attach 5 / vrts 1 

a 1 
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SYS I EM COMMAND 



LOGIN 



Func t i on : 

Links the terminal user to MTS and provides the initial 
load of the user's oroqram or operating system (default 
system is CP/M). 



Synt ax : 

LOGIN (<disk nr> (/<key>ll (error reset) 



Description: 

This system command notifies MTS that the requesting 
terminal is now active* and simulates the physical 
cold-start bootstrap operation of the user's system. 
The bootstrap load always takes place from virtual drive 
A. The virtual aisk (and associated key* if any) 
attached to this drive may be specified as a parameter. 
The default is disk nr 0, which is a read only dis< and 
always contains the CP/ M operating system. 



Error Messages: 

DISK NR ERROR 
DISK IN USE 

DISK NOT AVAIL 
HARDWARE ERROR 

INVALID CMD 
KtY ERROR 



Disk numoer entered is greater 
than 31. 

Disk number specified is presently 
allocated with read/ write access to 
anot her user . 

The specified disk is not available 
for ass i gnment . 

Abnormal completion status was 
returned by the mini-disk controller 
following a write operation. 

Syntax error in command sequence. 

The specified disk requires a key 
and either a kev has not been entered 
of the entered key did not- match. 



E x amp 1 es : 

LOGIN 3 /D 1 
L 15 

login 25 /o25 
1 
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SYSTEM COMMAND 



PROTECT 



Function: 

Adds the read/write orotection attribute to the 
specified virtual disk. 



Synt ax : 

PROTECT <disx nr> /<xey> (error reset) 



Description: 

This system commano provides the user with the means for 
on-line assignment of a protection <key> to <disk nr>. 



Error Messages: 

DISK NR ERROR - Disk number entered is greater 

than 31. 



HARDWARE ERROR - Abnormal completion status was 

returned by the mini -disk controller 
following a read or write operation. 

INVALID CMD - Syntax error in commano sequence. 



KEY ERROR - The specified disk is already 

protected. To change protection keys 
use UNP p OTECT with current key and 
then PROTFCT with new key. 



Examples: 

PROTECT 1 / VFD5 
protect 10 /keyl 
o 2 / u #2 0 
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SYSTEM COMMAND 



QUIT 



Funct ion: 

Terminates the terminal user's link to MTS. 



Syntax: 

QUIT (error reset) 



Description: 

This system command notifies MTS that tne requesting 

terminal is no longer active. 

Error Messages: 

HARDWARE EPRUR - Abnormal comoletion status was 

returned by the mini -disk controller 
following a write operation. This may 
indicate that the last virtual distc 
written to was not closed prooerly and 
data has been lost. 

INVALID CMD - Svntax error in command sequence. 



E x amp 1 e s : 

QUIT 

quit 

Q 

q 
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SYSTEM COMMAND 



RESTRICT 



Function: 

Adds the read restriction attribute to the specified 
virtual disk. 



Synt ax : 

RESTRICT <disk nr> /<kev> (error reset) 



Description: 

This system command provides the user with the means for 
on-line assignment of a "read only" restriction to <aisk 
nr>. This allows the user to specify a virtual floppy 
disk as available to other users for read only access. 
The virtual floppy dis* must have Deen protected prior 
to issuing the restrict command. The <key> is the same 
as the <key> usea in the orotect command. 

Error Messages: 



DISK 


NR 


ERROR 


- Disk 
than 


nu^Der 
31 • 


entered is greater) 


DISK 


IN 


USE 


- Disk 


number 


specified is presently 



allocated with read/write access to 
another user. 



INVALID CMD - Syntax error in command sequence. 

KEY ERROR - The specified disk reaui res a key 

and either a key has not been enterea 
or the entered key did not match. 



Examples: 

RESTRICT 3 /ID 1 
R a / ID4 
restrict 13 /usr3 
r 16/1 
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SYS I EM COMMAND 



SIZE 



F unc t i on : 

Specifies the memory size to De allocated to the 
terminal user. 



Syntax : 

SIZE <memory si ze> (error reset) 



Description: 

This system command sets the size of the user’s swap 
image. The range of values is 0-48K. The default value 
after login is loK. 



Er ror Messages : 

INVALID CMD - Syntax error in command sequence or 

the size parameter entered does 
not fall in the ranoe of 0-4o; 
or the Sycor *140 swap file is not 
large enough to held this size 
swap image (see section C.3). 

E x amp 1 es : 

SIZE 24 

S 32 

s i ze 46 
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SYSTEM COMMAND 



UNPROTECT 



Function: 

To remove a previously entered protection key from the 
specified virtual floppy disk. 



Syntax : 

UNPROfECT <disk nr> /<key> (error reset) 



Descript ion: 

This system command provides the user with the means for 
on-line removal cf all protection attrioutes form < o i s k 
n r > . 



Error Messages: 

DISK NR ERROR 

HARDWARE ERROR 



INVALID CMD 
KEY ERROR 



Disk number entered is greater 
than 31. 

Abnormal completion status was 
returned by the mini -disk controller 
following a read or write operation. 

Syntax error in command sequence. 

A protection kev is required and 
either no key was entered^ or 
the entered key did not matcn. 



E x amp 1 es : 

UNPROTECT 18 /NR 9 
U 12 /ORoa 
unprotect 7 /Ovfa 
u 9 /0 ?&% 



£. MTS STATUS LINE MESSAGES 

The MTS operating system utilizes the first line of 
terminal for system status and error message disolays. 
status line is 64 characters in length and is divided 
three disolay areas as shown below. 

STATUS LIME 

0 39 40 47 48 63 

I VFC ! MS ! MSG! 



where 

VFD - Virtual FIodpy Disk Status Display 
MS - Memory Size Disolay 
MSG - Error Message Disolay 

1. Virtual Floopy Disk Status Display 

This display contains information on the vi 
drive and disk assignments currently in effect. For 
attached virtual floppy disk the following will 
i sp 1 ayed : 

(1) drive letter 
( 8 ) disk number 

(3) restriction indicator (r or blank) 

For example^ if the user has attached disk number i to 
A and disk number 85 (which is restricted) to drive C 
status display would appear as follows: 



each 

The 

into 



rtual 

each 

be 



drive 
, the 
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0 



39 



10 



I A = 0 3 C = 25r 



2. Memory Size Display 

The center of the status line display shows the 
current memory size for that user ana the "MTS" header. For 
example# if the system default memory size were he j ng used# 
the disoiay would aopear as follows: 

40 47 

16K ^ T S 



3. trror Message Disoiay 

All MTS system commands are validated and an error 
alert generated if any syntax errors are found. Tne last 16 
positions of the status line are reserved for tnese 

messages, A valid system command will clear the error 

message disoiay of any previous error alert. The followina 
is a summary of system error messages. 

MESSAGE MEANING 



(Blank Display) Initial condition; also the status message 

area is cleared following the processing 
of a valid system command. 

DISK IN USE Disk numoer specified is presently allo- 

cated with read/write access to another 
user . 
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DISK NUT AVAIL 


Either tne disk number has not been spec i * 
f i e a and there is no disk present 1 y 
available for assignment; or specified 
disk number is not available for 
assignment. 


DISK NR ERROR 


Disk numoer entered is greater than 31. 


DRIVE LTR ERROR 


Drive number entered is not one of the 
letters A th rouah H . 


DRIVE NOT AVAIL 


Drive letter has not been specified and 
there is no drive presently available for 
assignment . 


HARDWARE tRROR 


Abnormal completion status was returnee by 
the mini-disk controller following a read 
or write operation. 


INVALID CMD 


Syntax error has been detected in the 
command sequence. 


KEY ERROR 


The specified disk requires a key and 
either a key has not been entered or tne 
entered key did not match. 


PRINTER NOT RDY 


Abnormal compl et ion status was returned by 
the printer controller followina a print 
operation. This error may oe caused by 
printer power off? printer not selected or 



printer out of oaoer 



TASK DELETED 



when RECOVERY is specified during system 
initialization, this message is displayed 
at the terminal whicn was executing when 
the system failure occurred. It indicates 
that this terminal user must reestablish 
the en v i ronmen t . 
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F. MTS/USER PROGRAM INTERFACE 



1. Program Interface Design 

MTS was designed to provide a timeshared* virtual 
8080 microprocessor environment for microcomputer systems 
development. The term virtual is appropriate here because 
the user actually interfaces with MJS for many services 
normally provided by hardware in a dedicated CPU 
environment. A software interface between user programs and 
the Sycor 440 hardware is necessary in order to allocate the 
hardware resources equitably and efficiently* while at the 
same time satisfying the service reauirements of several 
competing user Programs. 

The MTS/user program interface consists of a set of 
service routines which may be called by a user program 
through a single entry point to perform terminal I/O* access 
virtual floppy disks* or modify the user's virtual 
environment. The design was heavily influenced by the C P / M 
operating svstem wnich uses a similar scheme for I/O. 

The set of service routines may be logically divided 
into two types of calls on MTS. The first type* system 
calls* perform the same functions for a user program as 
system commands provide for the user at a terminal (D.3). 
The functions deal with modifying the user's current virtual 
environment by chancing memory size* attaching various 
virtual disks to virtual drives* or even logging on and off 
the system. Service calls are the second type of call 
provided by the MTS software interface. Service calls are 
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used to perform terminal I/O and access virtal floppy disks. 

A call to MTS takes the form 

<value> = MTS(<fid>,<oarm>) 

The first argument, < f i d > , is a number from 0 to 17 which 
identifies the function reauested. The <oarm> argument may 
be a parameter value, if only a single parameter is 
required, or the address of a parameter list if more than 
one parameter is reaui red. In each case MTS returns <value> 
upon completion of the reauested operation. This returned 
value may oe an ASCII character code, an error code, or in 
several cases nave no significance. Both system calls and 
service calls are formed as aescribed above. The syntax and 
function of each call are described in sections 2 . ana 3. 
Section 4 details the calling procedures which include the 
register assignments for < f i a > , <oarm> and return values. 
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Z • System Calls 



All system commands available to a user at a 
terminal are also availaDle to a user program through system 
calls* An additional call is provided which will display an 
appropriate terminal alert at the user’s terminal if entered 
with an error code* Table 1 summarizes the required 
arguments and return values of each system call* 

TABLE i 

SYSTEM CALL SUMMARY 

FID NAME PARM VALUE 



0 


ATTACH 


list 


error 


code 


1 


DISPLAY MSG 


error code 


none 




a 


LOGIN 


list 


error 


code 


3 


PROTECT 


list 


error 


code 


a 


QUIT 


none 


none 




5 


RESTRICT 


list 


error 


code 


6 


SIZE 


size 


error 


code 


7 


UNPROTECT 


list 


error 


code 



a • Arguments 

Each system call is identified by a number which 
MTS associates with a particular service routine. In 
addition to this function identifier/ MTS may require one or 
several additional parameters to perform the reouested 
service* flhen more than one parameter is required/ MTS must 
be passed the address of a byte vector containing these 
parameters. Each system call requires that this vector 
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conform to some fixed format. In general each byte of the 
vector will contain seme numeric value or an ASCII character 
code# but situations may arise when an optional parameter is 
not specified. In such cases the corresponding byte in the 
parameter vector must be filled with the value FFH. Section 
4 details the calling orocedure which includes the register 
assignments for the arguments. 

o. System Call Descriptions 

The following oaaes describe in detail each 

system call. 
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SYSTEM CALL 



ATTACH 



Function: 

To attach a virtual floppy disk to a virtual disk drive 
for use oy a user at a specific terminal. 



Arguments: 

FID = 0 

PARM = address of oarameter vector 

byte 0: drive number where A=0, 6=1/ etc. 

Dyte 1: disk numoer ■ 0 to 31 

oytes 2- 5: protection key • I) to ASCII characters 



Descript ion: 

This call simulates the physical oceration of loading 
virtual disk <aisk nr> into virtual drive <drive nr>. 
All parameters are optional. If disk and/or drive nr is 
not specified MTS searches the disk or drive mao table 
respectively for the first available entry. A 
protection key is only reauired if the virtual disk to 
De attached has been assigned reao/wri te protection. 
The call returns an error code upon completion. 



Error Cooes : 

0 - Operation successful 

2 - Either disk number has not been specified and tnere 

is no dis< presently availaole for assignment; or 
the spec i f i eo dis< is not available for assignment. 

3 - Disk number specified is presently allocated with 

read/write access to another user. 

4 - Dis< number specified is greater than 31. 

5 - 1 he specifiec disk requires a key and eitner a key 

has not been entered or the entered kev did not 
match. 

6 - Drive number specified is areater than 7. 

10 - Drive number has not been specified and tnere is no 
drive presently available for assignment. 



SYSTEM CALL 



DISPLAY MSG 



Function: 

To display a terminal alert in the status message area 
of the user's terminal. 



Arguments: 

FID = 1 

PARM = error code 



Descript ion: 

This call takes an error code as i nout and Displays tne 
cor respond i ng predefined terminal alert message on the 
user's terminal. The DISPLAY MSG system call provides 
the only way fcr a user to display messages on the 
terminal status line. Mo value is returned oy this 
system call. 

Action: 

0 - blank 

1 - INVALID CMD 

2 - DISK NOT AVAIL 

3 - DISK IM USE 

4 - DISK NR ERROR 

5 - KEY ERROR 

6 - DRIVE LTR ERROR 

7 - PRINTER MOT R&Y 
6 - HARDWARE ERROR 
9 - TASK DELETED 
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DRIVE NOT AVAIL 



SYSTEM CALL 



LOGIN 



Function: 

Reinitializes the user's MTS environment and reboots the 
user’s system from drive A. 



Argument s : 

FID = 2 

FARM = aodress of parameter vector 
byte 0: a i s k number - 0 to 31 

bytes 1 -a : crotection key - 0 to 4 ASCII characters 



Desc r i pt i on : 

This system call creates a reinitialized MTS environment 
for the user program. Memory size remains at tne 
current value ana the soecifiea disk, if any, will be 
attached to drive A. If no dis< number is soecified, 
disk number 0 containing the CP/M system is at tachea. 
Drive assignment and memory size will be displayea on 
the status line of the user's terminal. The user system 
is then reoootec from arive A. All other drives and 
disks are reset. 



Error Codes: 

0 - Operation successful 

2 - The specifiea disk is not available for assignment. 

f 

3 - Dis< number specified is currently allocated with 

read/write access to another user. 

4 - Disk number specified is greater than 31. 

5 - The specified disk requires a key and either a key 

has not been entered or the entered key did not 
match. 

8 - Abnormal comoletion status was returned by the 
mini-disk controller following a write ooeration. 
This may indicate t h a r the last virtual disk 
written to was not closed oroperly and aata has 
been lost. 
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SYSTEM CALL 



PROTECT 



Func t ion? 

Read/write orotect a virtual disk. 



A rgumen t s : 

FID = 3 

PARM = address of parameter vector 
byte 0: disk number - 0 to 31 

bytes 1 -a ; orotection key - 1 to 4 ASCII characters 



Description: 

This system call adds the read/write protection 
attribute to the soec i f i ed virtual disk. This is 
accomplished by the uoaate of tne basic configuration 
file .MTSCNFG tC.^1. Uoon normal comoletion of the call 
disk use is limited only to those who know the 
protect i on key. 



Error Codes: 

0 - Operation successful 

y - Disk number soecified is greater than 31. 

5 - Key has not been entered or disk is already 
protected with another key. 

8 - Abnormal comoletion status was returned by the 
mini-oisk controller following a read or write 
operation. This may indicate that the last virtual 
disk written to was not closed properly and data 
has been lost. 
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SYSTEM CALL 



QUIT 



Func t i on : 

Logs the user off MTS. 

Argument s : 

FID = a 

PARM ~ none required 

Description: 

This system call notifies MTS that the requesting user 
program is no longer active. Control will not be 
returned to the user program. The user must 1 oq in 
through the terminal to regain system facilities. 

Error Codes : 

0 - Operation successful. 

8 - Abnormal completion status *as returnea by tne 
mini-disk controller following a write operation. 
This may indicate that the last virtual disk 
written to was not closed properly ana data has 
been lost. If this error code is returned/ the 
terminal alert HARD « J ARE ERROR is automatically 
displayed in the status message area of the user's 
terminal . 
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SYSTEM CALL 



RESTRICT 



Function: 

Assignment of "read only" restriction to a virtual disk. 



Argument s : 

FID = 5 

PARM = address of parameter vector 
byte 0: disk numoer - 0 to 31 

bytes 1-4: orotect i on key - 1 to 4 ASCII characters 



Description: 

This system call adds the read restriction attribute to 
a virtual disk which has been oreviously protected. The 
protection key is the same as that used for the orotect 
system call. MTS adds the read restriction attribute to 
the basic configuration file . MTSCNFG. 



Error Codes: 

0 - Uoeration successful 

3 - Disk number specified currently allocated with 

reao/write access to another user. 

4 - Disk number specified is greater than 31. 

5 - The specified disk requires a key and either a key 

has not been entered or the entered key did not 
match. 

8 - Abnormal completion status was returned by the 
mini-disk controller following a read or write 
operation. This may indicate that the last virtual 
disk written to was not closed orooerly and data 
has been lost. 



SYSTEM CALL 



SIZE 



Function: 

Set the amount of memory available to the user. 



Arguments: 

FID = 6 

PARM = memory size in kilobytes 



Desc rot i on: 

This system call aajusts the size of the user's swap 
image to the specified value. The value must fall in 
the range 0 to ^8, and also must not be greater than tne 
size of the swap file associated with the user's 
terminal . 



Error Codes : 

0 - Operation successful. 

1 - Either soecified size exceeds 48K, or a value less 

than 98K exceeds the size of the available swao 

file. 
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SYSfEM CALL 



UNPROTECT 



Function: 

Remove a previously specified protection key from a 
virtual disk. 



A rgumen t s : 

FID = 7 

PARM = address of parameter vector 
byte 0: disk number - 0 to 31 

pytes 1-4: protection key - 1 to 4 ASCII characters 



Descript ion: 

This system call removes all orotection attributes from 
the specified virtual disk. This is accomplished Dy 
modification of the configuration file .MTSCNFG. 



E r ro r Codes : 

0 - Operation successful 

4 - Disk number specified is greater than 31. 

5 - A orotection Key is reauirea and either a Key has 

not been entered or the entered key did not match. 

8 - Abnormal completion status was returned by the 
mini-disk controller following a read or write 
operation. This may indicate that the last virtual 
disk written to was not closed properly and data 
has been lost. 
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Service Calls 



The MTS environment currently provides a virtual CRT 
terminal as the primary I/O device and virtual floppy disk 
drives for auxiliary storage. Access to both of these 
virtual devices is through MTS service calls. A summary of 
the service calls showing parameters and returned values is 
given in Table 2 . 

TABLE 2 

SERVICE CALL SUMMARY 



F 10 


NAME 


PARU 


value 


8 


terminal STATUS 


none 


true/false 


9 


READ TERMINAL 


none 


character 


10 


WRITE TERMINAL 


character 


none 




1 1 


WRITE PRINTER 


character 


error 


code 


12 


SELECT DRIVE 


drive nr 


error 


code 


13 


SET DMA 


dma address 


error 


code 


14 


SET TRACK 


track nr 


error 


code 


15 


SET SECTOR 


sector nr 


error 


code 


16 


READ FLOPPY 


none 


error 


code 


17 


WRITE FLOPPY 


none 


error 


code 



a. Virtual Terminals 

The MTS virtual terminal simulates the operation 
of a serial half“auplex console device. Single ASCII 
characters may be passed from the terminal kevooard to a 
user proqram , or from a user program to the terminal for 
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display. A service call to MTS is required to pass each 
character. MTS also provides a terminal status service call 
which allows a user program to test the status of a 
terminal . 

The user should keeD in mind that characters are 
actually oeing passed between his program and the terminal 
display Duffer (D.l.b). This means that inout need not be 
echoed by the user's program since it already appears on the 
disolay. Simole line editing is also provided by MTS on the 
input data prior to making that data available for 
processing by the user's program. 

The user can directly contribute to improved 
system response by Droper use of tne terminal service calls. 
It is common practice when writina conversational programs 
to implement a "get character" routine to handle inout from 
the terminal. Normally this routine does little more than 
repeatedly test the terminal status until it finds inout 
waiting. In the MTS environment a more efficient method of 
ac como 1 i s h i ng the same goal is to immediately read from the 
terminal without testing for status. If inout is waiting, 
the first character will be massed immediately. More 
importantly, if there is no input waiting, MTS will block 
the user's Drogram until a character is entered at tne 
keyboard. The blocked Drogram may be swaopeo out and the 
CPU allocated to another user. This method of implementing 
conversational programs takes advantage of unoroductive 
waiting time in one user program to service additional 
users. 
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b. Virtual Floppy Disk Drives 



The MTS virtual floppy disk drive provides 
auxiliary storage for user programs on virtual floppy disks. 
These hard-sectored aisks have 128 bytes per sector, 26 
sectors per track, ana a maximum number of tracks determined 
by the size of the file containing the disk image (C.6). 
Each user has eight drives available for dedicated use. 

Drive A is activated when the user logs in and 
serves as the user system load device. In a process which 
simulates a cold-start bootstrap load the first four sectors 
on track 0 are read into the user's memory space at location 
4000H. MTS assumes that these sectors contain executable 
code which will load the remainder of the user's system. 
Unless another disk is specified in the LOGIN command 
string, a read-only disk containing the CP/M operating 
system will be attached when drive A is activated. 

The user may activate any or all of the 
remaining virtual drives by attaching a virtual disk. This 
is accomplished from the terminal by entering the ATTACH 
system command or directly from the user's program by a call 
to MTS. Although no cirect method for detaching a virtual 
disk is provided by MTS, the same effect is produced 
indirectly by overridina the current drive assignment with a 
second ATTACH command. rthen the second floppy disk is 
attached MTS closes the previously attached disk and 
releases it for use elsewhere. 

Data transfer between a virtual disk and a user 
program utilizes a 128 byte ouffer in the user's program 
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soace called a DMA buffer. The name is derived from the 
nature of the transfer ooeration: to tne user program it 
appears that data transfer is by direct memory access. 

Before the user program can access a particular 
virtual disk sector the user must specify a complete sector 
address and a DMA buffer. A complete sector address consists 
of drive, track, ana sector numbers. Note that MTS will not 
allow a virtual drive to be selected until a disk has been 
attached. A DMA buffer is defined by its base address. M TS 
provides a service call to enter each of these four values. 
Once a value has been entered it will be used for all 
suDseauent virtual disk accesses until redefined by a second 
service call. 

c. Dedicated Printer 

The MTS dedicated orinter provides the user with 
the ability to obtain hard-copy output. Single ASCII 
characters may be oassed from the user program to the 
printer for disolay. A service call to MTS is reauireo to 
pass each character. 

The printer is a dedicated device. This means 
that once a task is allocated the orinter, no other tasks 
may use the orinter. A task is allocated the printer merely 
oy the successful comoletion of a call to the write orinter 
service routine. The write orinter service routine buffers 
the characters in memory and eventually writes the 
characters to the .MTSPRT disk file. Note that the printer 
does not actually print the characters until the end of file 
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character is received. When the user task issues the end of 
file character (control Z)» the printer prints the 
information contained in .MTSPRT. A repeat character 

(control R ) causes the information in .MTSPRT to be outout 
to the printer. After tne control R or Control Z has been 

issued the printer is not available to any task until after 

all information in .MTSPRT has been printed. 

d. Arguments 

Service calls have the same form as other calls 
to MTS. A numerical function identifier is associated with 
each call to identify the service desired. The second 

argument is a single oarameter in most cases/ although 
several of tne service calls require no second argument. 
Section 4 details the calling procedures which include the 
register assignments for the arguments. 

e. Service Call Descriptions 

The following oaaes descrioe in detail each 
individual service call. 
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SERVICE CALL 



TERMINAL STATUS 



Func t i on : 



Interrogate the status of the user's 



terminal . 



Argument s : 

FID = 8 

PARM = none required 



Description: 



This service 
Quest i on 
should not 
processing 
available, 
the READ 
other user 



call returns a logical value answering the 



terminal input waiting?" 



"Is 

be useo in those situations where no 
can be accomplished until terminal 
In such a case it is more efficient 



TERMINAL STATUS 
f urt her 
input is 
to use 



TERMINAL service call 
tasks while waiting. 



to allow processing of 



Value: 

0 OH 
FFh 



all terminal input processed 
terminal incut waiting 
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SERVICE CALL 



READ TERMINAL 



Func t i on : 

Read the next available character from the user's 
terminal . 



A rgument s : 

FID = 9 

PARM = none reauired 



Description: 

This service call passes the next available ASCII 
character from the user's terminal display buffer to the 
user program, Ihe maximum size input line is 512 
characters. Each input line is terminated by a carriage 
return. It is not necessary for user programs to echo 
input characters since they are already displayed on the 
user's terminal before becoming available to the user 
program. Line editing functions are provided bv MTS. 



Value: 

A single ASCII character - the end of each input line is 
indicated by the return of a carriage return (ASCII = 
OOH ) . ' 
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SERVICE CALL 



WRITE TERMINAL 



Function: 

To write a character to the user's terminal. 



Arguments: 

FID = 10 

PAR M = a single ASCII character 



Description: 

This service call passes the soec i f i ed character from 
the user orogram to the terminal disolay buffer for 
display. Carriage return (ASCII = ODh) returns the 
cursor to first position of the current line. Line Feed 
(ASCII = OAH) moves the cursor down one line. Each 
output line will normally be terminated oy the CR-LF 
comb i na t i on . 



Value: 



None returned 



SERVICE CALL 



WRITE PRINTER 



Func t i on : 



To write a cnaracter to 



the printer. 



Argument s : 

FID = 11 

PARM = a single ASCII character 



Description: 

This service call passes the specified character from 
the user program to the printer buffer. The printer 
does not print any cnaracters until the end of file 
character (control Z) is received. If an end of file 
character had been previously received/ tne repeat 
character (control R) may be issued resulting in the 
printing of information up to the last end of file. 



Error Codes: 

0 - Operation successful 

7 - Printer is not ready. Printer may be turned off> 

not selected or out of paper. 

8 - Abnormal completion status was returned by the 

mini-disk controller following a write operation. 

11 - Printer is in use. This code indicates that 

another task currently has control of the printer 
or the printer is currently printing a file. 

12 - The end of the printer file . M T S P R T has been 

exceeded. The user must recreate the .MTSPRT file 
with a larger file size .in order to alleviate this 
error (C.51. 
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SERVICE CALL 



SELECT DRIVE 



Function: 

Selects the virtual floppy disk drive to be used in 
subsequent floppy disk accesses. 



Argument s : 

FID = 12 

FARM = arive number where A = 0, B=lr etc. 



Descriotion: 



This service call selects one of the eight 
flopoy disk drives available to eacn user 
for use in subseauent flopoy disk accesses, 
a drive can be selected) a virtual disk 
attached. 



v i r t ua 1 
o r og r am 
Before 
must oe 



Error Codes: 

0 - Operation Successful. 

6 - Drive number soecified is qreater than 7. 
drive is changed. 

8 - Abnormal completion status was returned 
mini-disk controller following a read 
operat i on. 



Select ed 



by the 
or write 



10 - Drive specified is not in use. Indicates that no 
virtual disk has been attached to tne specified 
drive. Selected drive is unchanged. 



SERVICE CALL 



SET DMA 



Func t i on : 

Sets the base address of the 1(28 byte DMA buffer to oe 
used in subseauent floppy disk accesses. 



A rgumen t s : 

FID =13 

PARM = base address of DMA buffer 



Description: 

The DMA ouffer reouired to access a virtual floopv disk 
must be a contiguous block of 128 bytes located in tne 
user's memory space/ i.e. with base address greater 
than 4000M. Specifying a DMA address Greater than or 
eaual to FF00H will have unpredictable results/ but can 
normally be expected to cause a system crash and 
suDseouent deletion of the user's task upon recovery. 



Error Codes: 

0 - Operation successful. 

12 - Address specified is less than the base of user's 
memory space. Current DMA address remains 
unchanged. 



91 



SERVICE CALL 



SET TRACK 



Func t i on : 

Sets the floppy disk track number to be used in 
subsequent virtual floppy disk accesses. 



A r gumen t s : 

FID = 14 

PARM = track numoer - 0 to 7b 



Description: 

This service call sets the track numoer to be used in 
subsequent floppy disk, accesses. Values may range from 
0 to 76. The value cannot be validated until it is 
associated w i t h a virtual floppy disk number; therefore/ 
no validation is performed until a read or write 
operation is requested. 



Error Codes: 

0 - Operation successful 

\2 • Track number specified is greater than 76. Current 
value of track number remains unchanged. 
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SERVICE CALL 



SET SECTOR 



Function: 

Sets the floopy disk sector number to be used in 
subsequent virtual floppy disk accesses. 



A rgumen t s : 

FID = 15 

PARM = sector numoer - 1 to 26 
Descriot ion: 

This service call sets the sector number to be used 
in subsequent virtual floppy disk accesses. Since 
each floopy cisk track contains 26 sectors numbered 
from 1 to 26# this value cannot be less than 1 nor 
greater than 26. 



E r r o r Codes : 

0 - Operation successful. 

12 - Sector number specified is less than 1 or greater 
than 26. Current value of sector number remains 
unchanged. 



SERVICE CALL 



READ FLOPPY 



Func t i on : 

Simulates reading a 128 b v t e sector from a floppy disk. 



Arguments: 

FID = 16 

PARM = none required 



Descript ion: 

This service call simulates reading from a floopy disk 
by mapping the current driver track, and sector numbers 
into a mini-disk address; reading the mini-aisk sector 
into a buffer; and moving 128 bytes from the mini-aisk 
Duffer into the current DMA ouffer in the user’s memory 
space. Errors may occur at two points in the process. 
If the calculated mini-disk address falls outside the 
bounds of the virtual disK file attached to the 
soecified virtual drive, it indicates an error in the 
specified track number. Errors may also occur durinq 
mini-disk read anc write operations. A user program 
must consider such hardware errors as irrecoverable 
since MTS provides insufficient information to determine 
the cause . 



Error Codes: 

0 - Operation successful. 

8 - 

ope r a t i on 



Abnormal completion status was 
mini-disk controller following 



returned by the 
a read or write 



12 - Calculated mini-disk address out of bounds, 
able error in specified track number. 



Prob- 
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SERVICE CALL 



WRITE FLUPPY 



Function: 

Simulates writing a 128 byte sector to a floppy Oisk. 



A rgumen t s : 

FID = 17 

PARM = none required 



Desc r i p t i on : 

This service call simulates writing to a floppy disk by 
mapping the current drive* track* and sector numbers 
into a mini-disk address; reading the mini-disk sector 
into a buffer; and moving 128 bytes of data from the 
current DMA buffer in the user’s memory space into the 
mini-disk buffer. Errors may occur at two points in the 
process. If the calculated mini-disk address falls 
outside the bouncs of the virtual disk file attached to 
the specified virtual drive* it indicates an error in 
the specified track number. Errors may also occur 
during mini-disk read and write operations. The user 
should interpret sucn hardware errors as indicating a 
bad sector on the virtual floppy disk and try repeating 
the operation with a different floppy disk sector and 
track comb i na t i on . 



E r r o r Codes 



0 - Operation successful. 

2 - Floppy disk is read only. Write is not permitted. 

8 - Abnormal completion status was returned by the 



mini-disk controller following 
ope ration. 



read or write 



12 - 



Calculated mini-disk address out of bounds, 
able error in specified track number. 



P rob- 
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a. Calling Procedure 

All calls to MTS/ whether system calls or service 
calls/ are made through a single entry ooint at location 
2000H. Each call takes two arguments: the function 

identifier in register C; and a parameter value or address 
in register pair DE. In those cases where the second 
argument is only a single byte the contents of the D 
register are ignored. 

Each call to ^ T S returns a value in the A register. 
This value may be an error code/ an ASCII character code/ or 
zero. The value zero is returned by those routines whose 
value has no significance such as to RITE TERMINAL. 

Note that the register assignments for arguments and 
returned values conform to the PL/M convention for passing 
parameters. The following examples illustrate the calling 
procedure for 8080 Assembly Language/ ML80/ and PL/M in the 
MTS environment. Each examole illustrates the sequence 
required to read floopv disk sector 22/ track ^3 on drive 2 
into a DMA buffer at address 0100H. 

a. 8080 Assembly Language 

tohen writing in 8080 assembly language MTS is 
accessed by a direct call to the MJS entrv point: 

MTS EQU 2 0 0 Oh 

• 

MVI C/12 

MV I E , 2 

CALL MTS 

MVI C , 1 3 



,*FID = 12 
,'DRIVE MR = 2 
/•SELECT DRIVE 
;FID = 13 
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L X I D, 4100M 



; DMA ADDRESS = 4100H 
; SET DMA 

;fid = 14 

;TRACK MR = 43 
; SET TRACK 
;FID = 15 
; SEC TOR NR = 22 
,*SET SECTOR 
/•FID = 16 
/READ FLOPPY 



CALL MTS 

MV I C , 1 4 

MV I E , 4 3 

CALL MTS 

MVI C , 1 5 

MV I E / 22 

CALL MTS 

MVI C , 1 6 

CALL MTS 



MVI C , 1 5 

MVI E , 2 3 

CALL MTS 

MVI C , 1 6 

CALL MTS 



,*FID = 15 
/‘CHANGE SECTOR NR 
,*SET SECTOR 
; F I D - lo 
,-READ AGAIN 



D. ML 8 0 



The readibility of ML80 source programs may oe 



enhanced Dy defining an M80 macro f or each call to MTS used 
in the program. The following code segment contains several 
examples. 



[MACRO MTS ' 2000H ' ] 

[MACRO SELECTSDRIVE DNR ' 

C = 12; E = [CNR]; CALL [MTSJ'3 
[MACRO SET SDMA DMA ' 

C = 13; DE = [DMA]; CALL [MTSl’l 
[MACRO SETSTRACK T NR ' 

C = 14; E = [TNR] / CALL [MTS] ' ] 
(MACRO SET iSEC TOR SNR ' 

C = 15; E = [SNR] ; CALL [MTS] ' ] 
[MACRO READSFLOPPY ' 

C = 16; CALL [MTS] ' ] 



• 

/* SPECIFY COMPLETE SECTOR ADDRESS AND DMA BUFFER */ 
(SELECT SDR I VE '2'J; 

(SETSDMA ' 4 1 00H ' ] ; 

[SETSTR ACK • 43 ' 1 ; 

(SETSSECTOR '22'1 ; 

[READSFLOPPY] ; 
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/* INCREMENT SECTOR NR AND READ AGAIN */ 
CSETSSECTOR ’23’],* 

(READSFLOPPY] ; 



c. PL/M 



/ * * * : 
/ * 






************ 



SAMPLE PL/M PROGRAM SEGMENT 



/***********************• 



* * / 
*/ 

r*************/ 



a 0 0 o h : 



USER: PROCEDURE; 

DECLARE 

LIT LITERALLY ’LITERALLY ' , 



MTS LIT ' 2000H ' , 

SELECTiDRlVE LIT ’ 12’ , 

SETSDMA LIT ’13’, 

SET STRACK LIT *14', 

SETSSECTOR LIT ’15', 

READiFLOPPY LIT 'lb', 

DISPLAYSMSG LIT '!’ ? 



/*****************************************************/ 
/* MTS INTERFACE PROCEDURES */ 



/****************+************************************/ 



MTSl: PROCEDURE (FID,PARM); 

/************************************/ 
/* PROVIDES THE MTS INTERFACE FOR */ 
/* FUNCTIONS tohlCH DO NOT REQUIRE A */ 
/* RETURN VALUE. */ 

/* INPUT: FID - MTS FUNCTION ID */ 

/* PARM - PARAMETER OR ADDRESS*/ 

/* OF PARAMETER LIST. */ 

/************************************/ 
DECLARE FID BYTE, PARM ADDRESS,* 

GO TO MTS ; 

END MTSl; 

M T S 2 : PROCEDURE (F ID, PARM) BYTE; 

/************************************/ 
/* PROVIDES THE MTS INTERFACE FOR */ 
/* FUNCTIONS to H I C H REQUIRE A VALUE */ 
/* RETURNED. INPUT PARAMETERS ARE */ 
/* THE SAME AS IN MTSl . */ 

/************************************/ 
DECLARE FID BYTE, PARM ADDRESS,* 

GO TO MTS; 

END MTS2,* 
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/a***************************************************/ 
/* SPECIFY COMPLETE SECTOR ADDRESS AND DMA BUFFER */ 
/ *★**•********★★*’★*★*★★*★★★***:*★***•★★★'**•** ****★*******/ 



CALL MTS1 (SELECTJDRI VE, 2); 

CALL MTS1 (SETS DMA, UlOOH); 

CALL MTS1 (SETSTRACK, 43); 

CALL MTS1 (SETS SECTOR^ 22); 

/-k'k.-k'k-k'k'k'k'k-k'k'k-k'k'k-k-k-kkli-k-k'k-k'k'k-k'kic'k'k'k'k'k'k'k-k'k-k'k-kit-k-k'k'k'k-kli-k'k'k/ 

/* READ FLOPPY RETURNS AN ERROR CODE WHICH WILL */ 

/* BE RETURNED TO MTS TO BE DISPLAYED ON THE */ 

/* TERMINAL STATUS LINE. */ 



****** 

CALL MTS1 (DISPLAYTMSG, 



MTS2 (READSFLOPPY , 0 ) ) 



■ * * / 



% 

/* INCREMENT SECTOR NR AND READ AGAIN */ 

CALL MTS1 (SET TSECTQR, 23); 

CALL MTSI (DISPLAYfMSG, MTS2 ( READSFLOPP Y , 0 ) ) ; 



END user; 



5* Limitations on User Proqrams 

MTS was designed to provide each user with his own 
virtual 8080 microprocessor. Unfortunately^ the 

architecture of the 8080 CPU is not amenaole to self- 
virtualization, As a conseauence several limitations must 
De imposed on user orograms running in the MTS environment. 
These limitations are: 

(1) The user’s memory soace extends from address 4000H to 
FEFF, a total of 48,8^6 oytes. A 1 ) user code; data, 
and buffers must be contained within this area of 
memo r y • 

(d) All user-def inec stacks must be four bytes longer than 
the maximum size reaui red by tne user. The four extra 
bytes are needec if an interrupt occurs while the 
user’s stack is full. Failure to provide this 
additional space may result in random execution errors 
which are not reproducible and extremely difficult to 
d i agnose . 

(3) User programs should not read or write directly to I/O 
ports while running under MTS, Terminal ana floppy 
disk access is provided by MTS service calls. 
Attempts to interface directly with the Sycor 440 
peripherals or auxiliary storage devices may interfere 
with the operation of MTS and damage other users. 
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G. CP/M - MTS CP/M INTERFACE 

1. CP/M to MTS CP/M Program Conversion 

Programs mav be easily converted from execution 
under the basic CP/M system to execution under the MTS CP/M 
system. In the basic version of CP/M the base address of 
the system is 00H whereas the base address of the MTS 
version of CP/M is 4000H. This is the fundamental 
difference between the two versions of CP/m. By taking 
existing programs and translating CP/M related addresses up 
by 400UH these programs will run in the MTS CP/M 
envi ronment . 

Specifically# the following addresses must be 
modi f i ed : 

(a) default file control block from 005CH - 007CH changed 
to 4 05CH - a07CH 

(b) default 126 byte disk buffer from 0080H - OOFFH 

changed to U080P • 40FFH 

tc) default address of transient program area from 0100H 
changed to d 1 00H 

2. PKT Proaram 

A proqram called PRT has been written for the MTS 
CP/M operating system which provides a printer system 
command capaoility. PRT may be used in two ways. 

First# if a user enters an I/O control P to C P / M the 
printer switch is activated theredv causing all information 
whicn is disolayea cn the terminal screen to also be 
displayed on the printer. Recall that the printer requires 
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an end of file character before information output to the 
printer is actually printed. After the user has issued the 
command t 

PR T 

the program outputs the end of file character thereby 
causing the printing of the latest information. 

Second/ PRT may be utilized to print any ASCII CP/M 
file. After the user enters the command: 

PRT <filename> 

the PRT program causes the hardcopy output of the file. 
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MTS PROGRAM LISTINGS 



/* GLOBAL IDENTIFIERS */ 

/* */ 

/* THE FOLLOWING DECLARATIONS DEFINE SYSTEM IDENTI- */ 
/* FIERS WHOSE SCOPE IS GLOBAL THROUGHOUT MTS. THESE */ 
/* IDENTIFIERS MAY BE DIVIDED INTO THREE DISTINCT */ 

/* GROUPS . THE FIRST GROUP INCLUDES ANT IDENTIFIER */ 

/* CONSIDERED GLOBAL BECAUSE IT IS REFERENCED IN TWO */ 
/* OR MORE MODULES OF THE MTS ML80 SOURCE PROGRAM. BY */ 
/* INCLUDING THE DECLARATIONS FOR ALL SUCH IDENTIFIERS*/ 
/* IN A SINGLE MODULE, INTERMODULE LINKAGE IS GREATLY */ 
/* SIMPLIFIED, AND THE SOURCE PROGRAMS ’ S READABILITY */ 
/* AND CLARITY ARE IMPROVED. */ 



/* */ 

/* THE SECOND GROUP OF IDENTIFIERS INCLUDES THOSE */ 
/* VARIABLES WHICH, TAKEN TOGETHER, DEFINE THE STATE */ 
/* OF THE SYSTEM, I.E. THE SYSTEM STATE BLOCK. THE */ 
/* CONCEPT OF SYSTEM STATE IS IMPORTANT IN MTS BECAUSE*/ 
/* THE SYCOR 440 HARDWARE ARCHITECTURE PROVIDES NO */ 
/* PROTECTION AGAINST INADVERTENT OR MALICIOUS TAMP- */ 
/* ERING WITH SYSTEM CODE BY USER PROGRAMS. TO MINI- */ 
/* MIZE THE EFFECTS OF SYSTEM CRASHES CAUSED BY SUCH */ 
/* TAMPERING MTS PROVIDES A LIMITED RECOVERY CAPABIL- */ 



/* ITY. AFTER A TASK’S TIMESLICE EXPIRES, AND JUST */ 
/* PRIOR TO INITIATING A NEW TASK, THE MTS MONITOR */ 
/* COPIES THE CONTENTS OF THE SYSTEM STATE BLOCK TO A */ 
/* FILE NAMED . MTSRCVR. IF A CRASH OCCURS WHILE THE */ 
/* NEW TASK IS EXECUTING, RECOVERY MAY BE ACCOMPLISHED*/ 
/* BY REBOOTING MTS AND READING THE CONTENTS OF */ 
/* .MTSRCVR BACK INTO THE SYSTEM STATE BLOCK. THE */ 
/* TASK WHICH CAUSED THE CRASH IS THEN DELETED AND */ 
/* NORMAL OPERATION CONTINUES. */ 



/* 



*/ 



/* THE THIRD AND FINAL GROUP OF IDENTIFIERS INCLUDES */ 
/* SYSTEM DATA ASSOCIATED WITH A PARTICULAR USER TASK. */ 
/* SINCE THIS DATA IS ONLY USED WHEN ITS ASSOCIATED */ 
/* TASK IS ACTIVE, THE SPACE REQUIRED FORMS A SYSTEM */ 
/* AREA IN THE TASK’S SWAP IMAGE. THIS DATA IS SWAPPED*/ 
/* IN AND OUT ALONG WITH THE USER AREA OF THE SWAP */ 
/* IMAGE. */ 



/* 



*/ 



/* THE THREE PRIMARY IDENTIFIER GROUPS DESCRIBED 
/* ABOVE MAY ALSO BE SUBDIVIDED BASED ON USAGE AND 
/* STORAGE ALLOCATION REQUIREMENTS. THE GROUP AND 
/* SUBGROUP HEADINGS FOR DECLARATIONS IN THIS MODULE 



/* ARE 


AS 


FOLLOWS : 


/* 








/* 


A. 


GENERAL SYSTEM DECLARATIONS 


/* 


B. 


SYSTEM STATE BLOCK DECLARATIONS 


/* 




1 . 


SYSTEM CONTROL 


/* 




2 . 


TASK CONTROL TABLE 


/* 




3. 


DISK MAP TABLE 


/* 


C. 


SYSTEM SWAP AREA DECLARATIONS 


/* 




1 . 


VIRTUAL DISK CONTROL BLOCK 


/* 




2 . 


SWAP STACK 


/* 









*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



/* THE ORDER OF ALL DECLARATIONS IN THIS MODULE MUST */ 
/* BE MAINTAINED TO PRODUCE A PROPERLY FORMATTED */ 
/* OBJECT MODULE. IN THIS REGARD SPECIFICATION OF THE */ 
/* INITIAL ATTRIBUTE IN A DECLARATION MUST BE CONSID- */ 
/* ERED CAREFULLY SINCE THE ML80 COMPILER ALLOCATES */ 
/* DIFFERENT AREAS OF MEMORY FOR INITIALIZED AND */ 
/* UNINITIALIZED VARIABLES. SPECIAL PRECAUTIONS ARE */ 
/* ALSO NECESSARY FOR LOCAL VARIABLES USED ONLY IN */ 
/* SINGLE MODULES. THE ML80 LINK EDITOR IS F ORC ED TO */ 
/* ALLOCATE SPACE FOR SUCH VARIABLES WITHIN THE */ 
/* MODULE’S CODE AREA BY DECLARING EACH SUCH VARIABLE */ 
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/* WITH TYPE DATA, THIS TECHNIQUES IMPOSES A PENALTY */ 
/* OF THREE BYTES PER DECLARATION FOR UNNECESSARY */ 

/* JUMP INSTRUCTIONS, BUT THE SIMPLIFICATION OF */ 

/* INTERMODULE LINKAGES MAKES THE TRADEOFF WORTHWHILE,*/ 
/* */ 
/ * * * X * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *c s 



/'*********************************************:*********/ 
/************ GENERAL SYSTEM DECLARATIONS *************/ 



DECLARE PRT3STAT BYTE INITIAL (0); 

/* PRINTER STATUS BYTE */ 

DECLARE BUFSPTTK 2) BYTE INITIAL (0,1); 

/* POINTER INTO PRINT BUFFER */ 

DECLARE RESERVED ( 13) BYTE INITIAL C 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 ) ; 

/* RESERVED FOR CASSETTE AND ASYNC INTERFACE */ 

DECLARE PARMC2) BYTE INITIAL (0,0); 

DECLARE DISK BYTE INITIAL (0); 

DECLARE DRIVE BYTE INITIAL (0); 

DECLARE ERROR BYTE INITIAL (0); 

DECLARE LOCK BYTE INITIAL (l); 



/* SYSTEM LOCK - */ 

/* BIT 0: SWAP LOCK - MTS CODE EXECUTING */ 

/* BITS 1-7: (NOT USED) */ 

DECLARE TASKSTIMER BYTE INITIAL ( 0FFH) ; 

/* COUNTER RECORDING HOW MANY TIMER INCREMENTS */ 
/* (50MS) REMAIN IN TIMESLICE */ 

DECLARE SVC$STACK( 20) BYTE INITIAL (0); 

/* SERVICE MODULE STACK */ 

DECLARE SYS$STACK( 20) BYTE INITIAL (0); 

/* MONITOR MODULE STACK */ 

DECLARE MDBUF( 5 12) BYTE INITIAL (0); 

/* MINI-DISK BUFFER - CONTAINS ONE SECTOR */ 

DECLARE MDSAD( 2) BYTE INITIAL (0,0); 



/* SECTOR NUMBER OF DATA CONTAINED IN MDBUF */ 



/****************************#***********************:&*/ 
/********** SYSTEM STATE BLOCK DECLARATIONS ***********/ 

/ # * * * * * * * * * * * * * * * * * * * * * * X * * * * * * * * * * * * * * * * * * * * * * * * * * * * / 



/******************* SYSTEM CONTROL *******************/ 

DECLARE TASK BYTE INITIAL (0); 

/* TERMINAL NR OF TASK CURRENTLY ALLOCATED */ 

/* THE CPU - RANGE 0-3 */ 

DECLARE REC$FILE(2) BYTE INITIAL (0,0); 

/* MIN I -DISK SECTOR NUMBER OF . MTSRCVR */ 

DECLARE CNFGSF ILE( 2) BYTE INITIAL (0,0); 

/* MINI-DISK SECTOR NUMBER OF . MTSCNFG */ 

TASK CONTROL TABLE *************#***/ 
/* THE TCT CONTAINS INFORMATION ON THE STATE OF EACH */ 
/* TASK AND DATA REQUIRED TO SUPPORT SWAPPING. EACH */ 

/* VARIABLE CONTAINS FOUR ENTRIES - ONE FOR EACH OF */ 

/* THE FOUR TERMINAL TASKS. */ 

/XXXXXXtKXXXXXXXXXXXXXXXXXXXXXXXXXXiKXXXXXXXXXXXXXXXXXXXiK/ 

DECLARE TCTSSTATUS( 4) BYTE INITIAL (0,O,0,0); 



/* 


BIT 


0: 


: SIMULATE BOOTSTRAP DURING NEXT 


*/ 


/* 






TIMESLICE 


*/ 


/* 


BIT 


1 


CALL MCP DURING NEXT TIMESLICE 


*/ 


/* 


BIT 


o 


(NOT USED) 


*/ 


/* 


BIT 


3 


(NOT USED) 


*/ 


/* 


BIT 


4 


RST 7 DURING NEXT TIMESLICE 


*/ 


/* 


BIT 


3 


BLOCKED FOR TERMINAL I/O 


*/ 


/* 


BIT 


6 


CURRENT SWAP IMAGE RESIDES ON 


*/ 
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/* MINI-DISK */ 

/* BIT 7: CURRENT SWAP IMAGE IN MEMORY */ 

DECLARE TCTSDMC32) BYTE INITIAL CO, 0,0, 0,0, 0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) ; 

/* DRIVE MAP - POINTERS TO VIRTUAL DISK ASSOC- */ 
/* IATED WITH EACH VIRTUAL DRIVE. BYTES 0-7 
/* CORRESPOND RESPECTIVELY TO DRIVES A-H FOR 
/* EACH 8 BYTE ENTRY. 

/* BITS 0-4: DISK NR - RANGE 0-31 
/* BIT 3 : (NOT USED) 

/* BIT 6: READ ONLY FLAG 
/* BIT 7: IN USE FLAG 

DECLARE TCTSSIZEC4) BYTE INITIAL (32,32,32,32); 

/ X SIZE OF SWAP IMAGE EXPRESSED IN NUMBER */ 

/ X OF 512 BYTE MINI-DISK SECTORS x / 

DECLARE TCTSBOE(Q) BYTE INITIAL ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0) ; 
DECLARE TCTSEOEC 8) BYTE INITIAL (0,0, 0,0, 0,0, 0,0); 

/* MINI-DISK SECTOR NUMBER FOR EACH SWAP FILE x / 
/ X - INITIALIZED WHEN MTS LOADED x / 



x/ 

x/ 

X/ 
X/ 
X / 
X/ 
X / 



/*%xxxxxxxxxxxxxxxxx DISK MAP TABLE xxxxxxxxxxxxxxxxxxx/ 
/ x THE DMT CONTAINS INFORMATION ON THE STATUS, PRO- */ 
/x TECTION , AND LOCATION ON THE MINI-DISK OF ALL VIR- */ 
/ x TUAL FLOPPY DISKS. EACH VARIABLE CONTAINS 32 */ 

/ x ENTRIES - ONE FOR EACH POTENTIAL DISK NR. THE X/ 

/x ENTIRE TABLE IS LOADED AND VERIFIED DURING MTS x/ 

/X INITIALIZATION. x/ 

/ * * * * * * * * * * * 5K * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / 

DECLARE DMTSFLAGC 32) BYTE INITIAL ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 



0,0, 


0,0,0, 


0, 


0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0) ; 




/* 


BIT 


0: 


DISK EXISTS 


*/ 


/X 


BIT 


1 : 


IN USE 


*/ 


/X 


BIT 


2: 


PROTECTED - KEY REQUIRED 




/x 


BIT 


3: 


RESTRICTED TO READ ONLY W/0 KEY 


X/ 


/X 


BITS 4 


-7: (NOT USED) 


X/ 



DECLARE DMT$BOE( 64) BYTE INITIAL ( 0 , 0 , 0 , 0 , 0 , 0 , O , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 ) ; 

/ x MINI-DISK SECTOR NUMBER FOR BEGINNING x / 

/ X OF EXTENT */ 

DECLARE DMT$EOE( 64) BYTE INITIAL ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 
0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 ) ; 

/x MINI-DISK SECTOR NUMBER FOR END x/ 

/X OF EXTENT X/ 

DECLARE DMT$KEY( 128) BYTE INITIAL ( 20H) ; 

/x ONE TO FOUR ASCII CHAR PROTECTION KEY x/ 



/ * * 5ft * * * * * * * * * * * * * ^ sfc * * yz * * * * * # * * 5fc * sfc 5fc * * / 

/*********** SYSTEM SWAP AREA DECLARAT I ONS xxxxxxxxxxxx/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtt:/ 



/**:*****:*;*:*:**:*: VIRTUAL DISK CONTROL BLOCK XXXXXXXXXXXXX / 
/* EACH USER TASK HAS AVAILABLE 8 VIRTUAL DRIVES WHICH*/ 
/* MAY BE SELECTED TO ACCESS THE ATTACHED VIRTUAL */ 

/* DISK. FOR EACH USER IT IS NECESSARY TO RECORD */ 

/* WHICH DRIVE IS CURRENTLY ACTIVE, AND ADDITIONAL */ 
/* DATA NEEDED TO MAP A VIRTUAL DISK ACCESS INTO A */ 
/* PHYSICAL MINI-DISK ACCESS. ALL THIS INFORMATION IS */ 
/* MAINTAINED IN THE VDC BLOCK. THE VDC BLOCK ASSOC- */ 
/* IATED WITH EACH TASK IS CONTAINED IN THAT TASKS */ 
/* SWAP FILE IN A SPECIAL AREA RESERVED FOR MTS SYS- */ 
/* TEM USE. THIS MEANS THAT ONLY ONE OF THE FOUR VDC */ 
/* BLOCKS MAINTAINED BY THE SYSTEM IS EVER RESIDENT */ 
/* IN MEMORY AT ANY ONE TIME. */ 

/ * x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X / 
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DECLARE VDCSDRIVE BYTE; 

/* BITS 0-2: DRIVE NR FOR DRIVE CURRENTLY */ 
SELECTED */ 

/* BITS 3-5: (NOT USED) */ 

BIT 6: READ ONLY FLAG */ 

BIT 7: MODIFICATION FLAG - SET WHEN CON- */ 
/* TENTS OF BUFFER MODIFIED */ 



DECLARE VDCSBOEC 2) BYTE; 

/* MINI-DISK SECTOR NUMBER FOR BOE OF VIRTUAL */ 
/* DISK CURRENTLY ATTACHED TO SELECTED DRIVE */ 
DECLARE VDCSEOEC 2) BYTE; 

/* MINI-DISK SECTOR NUMBER FOR EOE OF VIRTUAL */ 
/* DISK CURRENTLY ATTACHED TO SELECTED DRIVE 
DECLARE VDCSSECTOR BYTE; 

/* VIRTUAL DISK SECTOR NR FOR SUBSEQUENT */ 

/* ACCESSES - RANGE 1-26 */ 

DECLARE VDCSTRACK BYTE; 

/* VIRTUAL DISK TRACK NR FOR SUBSEQUENT */ 

/* ACCESSES - RANGE 0-76 */ 

DECLARE VDCSDMAC 2) BYTE; 

/* MEMORY ADDRESS OF 128 BYTE DMA BUFFER */ 

/* FOR SUBSEQUENT VIRTUAL DISK ACCESSES 
DECLARE PRTSCNTRL BYTE INITIAL (0); 





BITS 


0, l: 


TASK 


*/ 


/* 


BITS 


2-5: 


NOT USED 




/* 


BIT 


6: 


PRINT BIT 




/* 


BIT 


7: 


IN USE BIT 





DECLARE PRTSBOEC 2) BYTE INITIAL (0,0); 

MINIDISK SECTOR * OF MTSPRT BOE */ 

DECLARE PRTSEOEC 2) BYTE INITIAL (0,0); 

/* MINIDISK SECTOR * OF MTSPRT EOE 
DECLARE PRTSSECC 2) BYTE INITIAL (0,0); 

SECTOR * OF CURRENT SECTOR IN PRINT BUFFER */ 
DECLARE SPARES( 9) BYTE INITIAL ( 0 , 0 , 0 , 0, 0 , 0 , 0 , 0 , 0) ; 



/* RESERVED CASSETTE AND ASYNC INTERFACE */ 

SWAP STACK xxxxxxxxxxxxxxxxxxxxxxs 
/* EACH TIME A TASK IS SWAPPED OUT THE CURRENT OPER- */ 
/* ATING ENVIRONMENT, I.E. PSW, BC , DE, HL, AND SP , */ 

/* MUST BE SAVED IN A KNOWN AREA SO THAT IT CAN BE 
/* QUICKLY RESTORED WHEN THE TASK IS SWAPPED BACK IN. 

/* MTS USES A STACK IN THE SYSTEM AREA OF THE SWAP 
/* IMAGE TO HOLD THE ENVIRONMENT WHEN A TASK IS 
/* INACTIVE. */ 



/ * * * * * x x i*c *:#: x * * * ;£ / 

DECLARE SWAPSSTACKC 10) BYTE; 

/* AREA IN WHICH USER ENVIRONMENT IS 
/* SAVED WHEN TASK IS SWAPPED OUT */ 



EOF 
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/* INTERRUPT MODULE */ 

/'I****************;*: if:*****************************#***;*;#:*/ 
/* %/ 
/X */ 

/x ALL HARDWARE INTERRUPTS ON THE SYCOR 440 SYSTEM */ 
/* CAUSE THE EXECUTION OF A RST 1 INSTRUCTION. THIS */ 
/* INSTRUCTION BEHAVES LIKE A CALL TO LOCATION 0008H, */ 
/* I.E. THE PC VALUE IS STACKED, AND CONTROL TRANS- */ 
/* FERRED TO LOCATION 0008H. DUE TO THIS HARDWARE */ 

/x CHARACTERISTIC, THE USER MUST ENSURE THAT ANY USER */ 
/* DEFINED STACKS ARE AT LEAST FOUR BYTES LARGER THAN */ 
/* THE MAXIMUM SIZE REQUIRED BY THE USER’S OWN CODE. */ 
/* SINCE ALL PERIPHERAL DEVICES CAUSE EXECUTION OF */ 
/x THE SAME INTERRUPT INSTRUCTION, SOME MEANS MUST BE */ 
/* AVAILABLE TO DISTINGUISH BETWEEN DEVICES WHENEVER */ 
/x AN INTERRUPT OCCURS. THE SYCOR 440 SOLVES THIS */ 

/* PROBLEM BY DEFINING AN INTERRUPT LEVEL FOR EACH */ 
/* DIFFERENT DEVICE. THERE ARE 17 INTERRUPT LEVELS */ 
/* WITH VALUES RANGING FROM 0 TO 16. A HIGHER NUMERIC */ 
/* VALUE ALSO IMPLIES A HIGHER PRIORITY FOR THE */ 

ASSOCIATED DEVICE. WHEN AN INTERRUPT OCCURS THE */ 

/* LEVEL IS AVAILABLE ON INPUT LATCH 0. SIMULTANEOUS */ 

/* INTERRUPTS WILL BE INPUT SEQUENTIALLY IN PRIORITY, */ 

/* I.E. DESCENDING, SEQUENCE BY LEVEL NUMBER. WHEN */ 
/* THE LEVEL READS ZERO ALL PENDING INTERRUPTS HAVE */ 
/* BEEN PROCESSED. THE INTERRUPT LEVEL ASSIGNMENTS */ 
/* WHICH APPLY TO THE CURRENT NPS SYCOR 440 HARDWARE */ 
/* CONFIGURATION ARE AS FOLLOWS: */ 

/* */ 

/x LEVEL DEVICE */ 

/* */ 

16 DEBUGGER 

/* 15 POWER FAIL */ 

/* 14 PARITY CONTROL */ 

/"* 1 1 ASYNC COMM */ 

/x 10 TERMINAL GROUP 0 */ 

/* 8 TIMER */ 

/* 6 PRINTER 0 */ 

/* 2 FLOPPY DISK */ 

/* 1 CASSETTE */ 

/* x/ 

/x THIS MODULE CONTAINS THE CODE USED BY MTS TO PRO- 
/x CESS INTERRUPTS. THIS CODE CONSISTS OF AN INTER- */ 
/* RUPT CONTROLLER PLUS A SET OF INTERRUPT HANDLER */ 

/* ROUTINES - ONE ROUTINE FOR EACH DEVICE. THE INTER- */ 
/* RUPT CONTROLLER SAVES THE CURRENT ENVIRONMENT, 

/* IDENTIFIES THE INTERRUPT LEVEL, CALLS THE APPROP- */ 
/* RIATE HANDLER ROUTINE, AND THEN RESTORES THE */ 

/* ENVIRONMENT BEFORE RETURNING TO THE INTERRUPTED */ 

/x PROGRAM. THE HANDLER ROUTINES ARE TAILORED TO THE */ 
/* SPECIFIC REQUIREMENTS OF DIFFERENT DEVICES. IN */ 

/x ORDER TO UTILIZE THE CODE CONTAINED IN THE INTER- */ 
/* RUPT MODULE IT IS NECESSARY FOR THE MTS INITIAL- */ 
/x IZATION ROUTINE TO LOAD A JUMP TO THE INTERRUPT */ 

CONTROLLER IN MEMORY LOCATIONS 0008-000AH. */ 

/x x/ 

/* */ 

/'XXXXX'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/xxxxxxxxxxxxx INTERMODULE LINKAGE MACROS xxxxxxxxxxxxx/ 

DECLARE GL0B1 COMMON; 

C INT MB M2B TB] 

CMB:=O300H] [TB:=1000H3 [M2B:=0600H3 

[MACRO MONITOR ’[HEX MB + 0AAH3 * ] 

[MACRO MOVBUF ’[HEX M2B + 41H3’3 
[ MACRO READSPRTSBUF * [ HEX M2B + 9EH3 * 3 
[MACRO TERMS I N PUTS CTRL ’[HEX TB + 735H3 * 3 
[MACRO BLINKSCURSOR ’[HEX TB + 803H3 ’ 3 
[ MACRO MTS S MSG ’ [ HEX TB + 837H3 ’ 3 



108 



[ MACRO PRTSSTAT ’ GLOB ICO)’] 

[MACRO BUF3PTR ’GLOBl(l)’] 

[MACRO LOCK 1 GLOB1 ( 15H) ’ 3 
[MACRO TASKSTIMER ’ GLOB1 ( 16H) ’ ] 

[MACRO TASK * GLOB 1 ( 24 1H) * ] 

[MACRO PRTSCNTRL * GLOB 1 ( 39 EH) ’ ] 

[ MACRO SWAPSSTACK 1 GLOB 1 ( 3B7H) 1 ] 

/a;******: ***** INTERRUPT PROCESSING MACROS *****^****:**/' 

[MACRO LEVEL ’ IN(0) ’] 

[MACRO DEBUGS LATCH * 0FFH* ] 

[MACRO CSSTSLATCH ’85H’] 

[MACRO PRINTERSLATCH * 8 AH’ ] 

[MACRO PRTSCHAR ’ OUT< 8 AH) = A ’ 3 
[MACRO PRTSRDY ’0B0H’] 

[MACRO CNTRLSZ ’ 1 AH’ ] 

[MACRO TIMERSLATCH ’02H’3 
[MACRO TERM I NALSLATCH ’ 3EH’ ] 

[MACRO MATRIXSLATCH ’ 3FH’ ] 

[MACRO INTSPENDING ’ ( A= [ LEVEL] \A) ! ZERO’] 

[MACRO DEBUGS INT3PEND ING * ( A= [ LEVEL] ; A: : 16) ZERO’] 

/**:*****:*:**:**:**** MODULE DECLARATIONS ^^iK**************/ 

[ INT TOP BLINK EP] [BLINK:=4] [TOP:=30] [EP:=TOP-10] 
DECLARE INTSSTACK DATA 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) ; 

DECLARE BLINKSTIMER DATA (1); 

DECLARE SAVHL DATA (0,0); 

DECLARE TN DATA (0); 



/'xxxxtKXXxxxnKxxxxxxxxxx, PROCEDURES ************:********:*/'' 



DUMMYSHDLR: PROCEDURE; 

/ * * * * * * * * * * * :* 7K X * X * sicare * XX x x ^ * * X * x * x * X * * * XX * * * * *: * * X x * X * X * X / 
/* THIS PROCEDURE PROVIDES A COMMON EMPTY INTERRUPT */ 

/* HANDLER FOR THOSE INTERRUPT LEVELS WHICH SHOULD */ 

/* NEVER OCCUR WITH THE CURRENT NPS SYCOR 440 HARD- */ 

s* WARE CONFIGURATION. ITS ONLY ACTION IS AN IMMEDI- */ 

/"* ATE RETURN. 

/X CALLED BY: INTERRUPTS CONTROLLER */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

RETURN; 

END DUMMYSHLDR; 

DEBUGS HDLR: PROCEDURE ; 

/ JfC rf> cfC ^ ^ #"fC jfC jfC #^C rfc jfC ^ ^ ^ 'f' »fC rfC ^ ^ ^ / 

sx THIS HANDLER IS INCLUDED TO ALLOW USAGE OF THE */ 

/x SYCOR 340B DEBUGGER IN THE SOFT DEBUG MODE WHEN */ 

/* RUNNING UNDER MTS. IT WAS DISCOVERED DURING DEVEL- 
/* OPMENT AND TESTING THAT THE DEBUGGER IS LARGELY */ 

sx UNRELIABLE IN THE SOFT MODE. THIS IS APPARENTLY */ 

/* DUE TO HARDWARE CHANGES IN THE 440 SYSTEM MADE x/ 

AFTER THE DEBUGGER WAS DESIGNED. xs 

sx CALLED BY: INTERRUPTSCONTROLLER 

/* DISPLAY ENVIRONMENT ON DEBUGGER *s 
HL=2+SP ; 

M( 6H) - ( A=L) ; M(7H) = (A=H); 

ACKNOWLEDGE DEBUG INTERRUPT x/ 

OUT( [ DEBUGSLATCH] ) = ( A= 1 ) ; 

CPU IDLES WHILE WAITING FOR DEBUGGER TO x/ 

/X INITIATE RESUMPTION OF EXECUTION X/ 

DO WHILE [ DEBUGS INTSPENDING] ; 

END; 

END DEBUGS HDLR; 

CASSETTES HDLR: PROCEDURE ; 

OUT( [ CSSTS LATCH] ) = ( A= 10H) ; 

END CASSETTES HDLR; 

PR INTERS HDLR: PROCEDURE; 
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/* THE PRINTER INTERUPT HANDLER INPUTS THE PRINTER */ 

/* STATUS. IF THE CONT ROL BYTE INDICATES THAT NO TASK IS */ 
/* CURRENTLY ALLOCATED THE PRINTER, NO ACTION IS TAKEN. */ 
/* HOWEVER, IF A TASK IS ALLOCATED THE PRINTER AND THE */ 
/* DEVICE IS NOT READY THEN THE MESSAGE * PRINTER NOT RDY’ */ 
/* IS DISPLAYED AT THE USER’S TERMINAL; OTHERWISE A */ 

/* CHARACTER FRO M THE PRINT BUFFER LOCATED AT 100H IS */ 

/* OUTPUT TO THE PRINTER. THIS PROCESS CONTINUES UNTIL */ 
/* AN END OF FILE CHARACTER HAS BEEN OUTPUT TO THE */ 

/* PRINTER AT WHICH TIME THE DEVICE IS RELEASED FOR USE */ 
/* BY ANOTHER TASK. */ 

/* CALLED BY: INTERRUPTS CONTROLLER 



/^Mc****************^***************************************/ 

A= IN( C PRINTERS LATCH! ) ; 

[ PRTSSTAT1 = A ; 

OUT( [PRINTERS LATCH! )=(A=80H) ; /* CLEAR PRINTER INTERUPT */ 
IF ( A= [ PRTSSTAT] ; A : : [ P RTS RDY] ) f ZERO THEN 
DO; /* PRINTER NOT READY */ 

IF ( A= C PRTSCNTRL] ; A::0) TZERO THEN 
DO; /* GET TASK * FOR ERROR MESSAGE */ 

TN= ( A= C TASK] ) ; 

[ TASK] = ( A= [ PRTSCNTRL] 8 03H) ; 

E=7; CALL [ MTSSMSG] ; 

[ TASK] = ( A-TN) ; 

[ PRTSCNTRL] = ( A= 0 ) ; /* RESET PRINT CONTROL */ 
RETURN; 

END; 

END 

ELSE 

DO; /* PRINTER IS READY FOR CHARACTER OUTPUT */ 

IF (A=< [PRTSCNTRL] ; A=<A) CY THEN 
DO; 

HL= [ BUFSPTR] ; 

IF ( A= 3 ; A : : H) ZERO 8 (A=0; A::L) ZERO THEN 
DO; /* END OF PRINT BUFFER, GET NEXT SECTOR */ 

CALL [ READSPRTSBUF] ; 

[ BUFSPTR] = ( HL= 1O0H) ; 

END; 

IF (A=M(HL); A: : [ CNTRLSZ] ) !ZERO THEN 
DO; /* PRINT OUT CHARACTER */ 

[ PRTSCHAR] ; 

[ BUFSPTR] = ( HL= [ BUFSPTR] , + I ) ; 

/* BUFSPTR INCREMENTED */ 

RETURN; 

END 

ELSE 

/* EOF ENCOUNTERED, RESET PRINTER */ 

[ PRTSCNTRL] = ( A= 0 ) ; 

END; 

END; 

END PRINTERS HDLR; 

TIMERS HDLR: PROCEDURE; 

/* THE TIMER INTERRUPT HANDLER MANAGES THE TWO FUNC- */ 

/* TIONS OF MTS WHICH OCCUR AT PERIODIC INTERVALS: */ 

/* BLINKING THE TERMINAL CURSORS AND RETURNING CONTROL*/ 

/* TO THE SYSTEM WHEN A TASK’S TIMESLICE EXPIRES. IN */ 

/* ORDER TO KEEP TRACK OF THE TWO INTERVALS INVOLVED, */ 

/* THE PROCEDURE MAINTAINS TW O COUNTERS, THESE COUN- */ 

/* TERS ARE EACH SET TO AN INITIAL VALUE AND THEN */ 

/* DECREMENTED EACH TIME A TIMER INTERRUPT OCCURS. */ 

/* THE ACTUAL VALUE CONTAINED IN EITHER COUNTER AT ANY*/ 

/* INSTANT REPRESENTS THE TIME REMAINING IN THE INTER-*/ 

/* VAL IN MULTIPLES OF 50MS SINCE THIS IS THE FIXED */ 

/* INTERVAL BETWEEN TIMER INTERRUPTS. WHEN THE TASKS */ 

/* TIMER COUNTER HAS BEEN DECREMENTED TO ZERO, CONTROL*/ 



/* IS TRANSFERRED TO THE MONITOR WHERE THE CURRENT */ 
/* TASK IS SWAPPED OUT AND A NEW TASK SW r A?PED IN. */ 
/* WHEN THE BLINKSTIMER COUNTER REACHES ZERO THE */ 
/* BL I NK3CURS0R PROCEDURE IS CALLED. IN EITHER CASE */ 



/* THE TIMER HANDLER RESETS THE COUNTER TO ITS I NIT- */ 
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/* IAL VALUE AND CONTINUES. */ 

/* CALLED BY: INTERRUPTS CONTROLLER */ 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 
[ TASKS TIMER] 5 < A 5 [ TASKSTIMER] - 1 ) ; 

BL I NKST I MER= ( A 5 BL I NKST I MER- 1 ) ; 

IF (A::0> ZERO THEN s* BLINK INTERVAL EXPIRED */ 

DO; 

CALL CBLINKSCURSOR] ; 

BL I NKST I MER= ( A= C BL I NK3 ) ; 

END; 

OUT( CTIMERSLATCH] ) = ( A=0) ; /* RESET TIMER */ 

IF (A 5 [TASKSTIMER] ; A::0) ZERO THEN 
DO; TIMESLICE EXPIRED *s 

IF (A=> CLOCK]) ! CY THEN 

DO; /* SWAPPING UNLOCKED *s 
BC 5 10 ; DE= . INTSSTACKC CEP] ) ; 

HL 5 . C SWAPSSTACK] ; 

CALL C MOVBUF] ; 

ENABLE; 

GOTO [MONITOR]; 

END 

ELSE [TASKSTIMER] 5 C A 5 1) ; 

END; 

END TIMERSHDLR; 

TERM I NALSHDLR: PROCEDURE ; 

/* THIS PROCEDURE PROCESSES THE INTERRUPT GENERATED *✓ 
s* FROM ANY KEY DEPRESSION AT ANY OF THE TERMINALS. */ 

/X IT GETS THE TERMINAL IDENTITY AND THE KEYBOARD %/ 

/x MATRIX CODE AND THEN CALLS TERMINALS I NP UTS CONTROL x/ 



/% TO PROCESS THE KEY. %/ 

/"* OUTPUT: C - MATRIX CODE 

/"* E - TERMINAL NUMBER */ 

/X CALLED BY: INTERRUPTSCONTROLLER %/ 



/ *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX / 

/X READ TERMINAL IDENTITY */ 

E= ( A= INC [ TERM INALS LATCH] ) Q 03); 

SX WRITE TERMINAL NUMBER BACK OUT TO CAUSE *s 
/x THE APPROPRIATE KEYBOARD DATA REGISTER */ 

/x TO BE SELECTED FOR READING. */ 

OUTC [ TERM INALS LATCH] ) =A; 

/* READ THE KEYBOARD MATRIX CODE */ 

C 5 ( A 5 INC C MATR I XS LATCH] ) ) ; 

✓* PROCESS KEY */ 

CALL C TERMS INPUTS CTRL! ; 

END TERM I NALSHDLR; 



INTERRUPTSCONTROLLER: sx MAIN ENTRY INTO INTMOD *s 

/x SAVE CURRENT VALUE OF STACK POINTER AND */ 

/x ALL REGISTERS IN INTSSTACK XS 

SAVHL 5 HL ; STACK- PSW; 

HL=2+SP; PSW= STACK; 



SP 5 . INTSSTACKC [ TOP] ) 



STACK= HL 



/x PUSH CURRENT STACK PTR x/ 



HL 5 SAVHL; 

STACK- HL; sx PUSH ORIGINAL CONTENTS OF HL xs 
STACK 5 DE ; STACK 5 BC; STACK 5 PSW; 

DO WHILE [ INTSPENDING] ; 

H 5 C A 5 0) ; L 5 C A 5 [ LEVEL ] ) ; 

DO CASE HL; 





0 


xs 


CALL 


DUMMYSHDLR 




/% 


1 


X/ 


CALL 


CASSETTES HDLR 


/X 


2 


X/ 


CALL 


DUMMYSHDLR 




/X 


3 


X/ 


CALL 


DUMMYSHDLR 




/X 


4 


X/ 


CALL 


DUMMYSHDLR 




/X 


3 


X/ 


CALL 


DUMMYSHDLR 




/X 


6 


X/ 


CALL 


PR INTERS HDLR; 


/X 


7 


X/ 


CALL 


DUMMYSHDLR 




/X 


8 


X/ 


CALL 


TIMERSHDLR 




/X 


9 


X/ 


CALL 


DUMMYSHDLR 




/X 


10 


X / 


CALL 


TERM I NALSHDLR: 



S'* 11 */ 

/* 12 */ 
/* 13 */ 
14 */ 
/* 15 */ 
/* 16 */ 



CALL DUMMYSHDLR 
CALL DUMMYSHDLR 
CALL DUMMYSHDLR 
CALL DUMMYSHDLR 
CALL DUMMYSHDLR 
CALL DEBUGS HDLR 



END; /* CASE */ 



END; /* WHILE */ 

/* RESTORE ORIGINAL VALUE OF STACK POINTER 
/* ALL REGISTERS FROM INTSSTACK 
PS W= STACK; BC=STACK; DE= STACK; HL= STACK; 
SAVHL- HL ; HL = STACK; 

SP=HL; HL= SAVHL; 



ENABLE; 

RETURN; 

/* END INTERRUPTS CONTROLLER */ 



AND */ 
*/ 



EOF 
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UTILITY PROCEDURES 

THIS SUBMODULE CONTAINS GENERAL PURPOSE 
UTILITY PROCEDURES WHICH PERFORM OPERATIONS 
FREQUENTLY REQUIRED IN THE MONITOR, INTERRUPT 
AND SERVICE MODULES. 

* INDEX * 

* INDEX2 * 

* INDEX4 * 

* INDEX8 * 

* READ® P RTS BUF 



PUT 

GET 

MOVBUF 

MINISDISK 



( 2 ) 



/ * *** * * ** * * **** * ** ** ***** *** * * * ** * * * * ** ****** * *** * * * * * * / 
/* MONITOR MODULE */ 

/* */ 
/* THE MONITOR MODULE CONTAINS THOSE FUNCTIONS OF MTS */ 
/* WHICH DEAL WITH PROCESSOR MANAGEMENT. SUCH FUNC- */ 

/* TIONS INCLUDE THE INITIAL PROGRAM LOAD, SYSTEM */ 

/* RECOVERY, SCHEDULING, CPU ALLOCATION, AND SWAPPING.*/ 
/* THE MODULE IS DIVIDED INTO THREE BASIC SUBMODULES. */ 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 



TASK MANAGEMENT 

THIS SUBMODULE CONTAINS THE SCHEDULING, CPU 
ALLOCATION, AND SWAPPING PROCEDURES. IT ALSO 
INCORPORATES THE MECHANISM FOR RECORDING THE 
SYSTEM STATE BLOCK WHEN THE SYSTEM STATE 
CHANGES, THUS MAKING RECOVERY POSSIBLE. 
CONTROL PASSES TO THE TASK MANAGEMENT 
SUBMODULE AFTER MTS HAS BEEN INITIALIZED BY 
THE I PL SUBMODULE. 



MONITOR 
BUMP® TASK 
BOOTSTRAP 



* SWAP 

* WRITE®REC 

* RESUMES EXECUTION 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

MINI-DISK SPACE IS LIMITED AND THE ENTIRE 4QK */ 
IS NOT REQUIRED FOR USER PROGRAMS, MTS WILL */ 
AUTOMATICALLY ADJUST TO ANY FILE SIZE GREATER */ 
THAN 16K <32 SECTORS). THE FOLLOWING SYCOR */ 

COMMAND MAY BE USED TO CREATE A SWAP FILE: */ 

CREATE < F I LENAME> N=96 */ 

THE SYCOR SYSTEM DOES NOT ALLOW DYNAMIC */ 



INITIAL PROGRAM LOAD 

THIS SUBMODULE CONTAINS ALL PROCEDURES WHICH 
DEAL WITH THE LOADING PROCESS AFTER THE MTS 
OBJECT MODULE HAS BEEN LOADED INTO MEMORY BY 
THE SYCOR SYSTEM LOADER. THE PRIMARY FUNCTION 
OF THE IPL SUBMODULE IS SYSTEM INITIALIZATION 
OR RECOVERY, AS REQUIRED. IN ORDER TO MINI- 
MIZE THE MEMORY REQUIREMENT OF THE RESIDENT 
MTS CODE, THIS SUBMODULE WAS WRITTEN AS A 
STANDALONE PROGRAM LOADED INTO THE USER SWAP 
AREA. ONCE IPL IS COMPLETE. THE PROGRAM MAY 
BE OVERLAYED BY USER PROGRAMS. 

* ABORT® IPL * READSDIRECTORY 

* SEARCH® D I RECTORY * RECOVER 

* INITIALIZE * MTS® IPL 

* RECO VER®STATUS® L I NE 

/* 

/* THE MONITOR MODULE REQUIRES ACCESS TO SEVERAL 
/* FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR 
/* FORMAT. THESE FILES AND THEIR FUNCTION ARE: 

/* 

( 1 ) . MTSSWPO , . MTSSWP 1 , . MTS SWT 2 , . MTSSWP3 

ASSOCIATED WITH EACH OF THE FOUR TERMINAL 
TASKS IS A FILE USED TO STORE A CORE IMAGE 
OF THE TASK WHEN IT IS INACTIVE OR BLOCKED. 
THIS SWAP IMAGE CONSISTS OF A SYSTEM AREA 
WHERE THE ENVIRONMENT AND VIRTUAL DEVICE 
CONTROL BLOCK IS STORED, AND A USER AREA 
CONTAINING THE USER PROGRAM’S MEMORY IMAGE. 
THE MAXIMUM SWAP IMAGE SIZE IS 4QK BYTES. 
THEREFORE, EACH SWAP FILE SHOULD NORMALLY BE 
96 MINI-DISK SECTORS LONG. IN THE EVENT THAT 



/* CHANGES IN FILE SIZE OR ATTRIBUTES; THUS, IN */ 

/* ORDER TO CHANGE THE FILE SIZE, THE FILE MUST */ 

/* FIRST BE DELETED (DELETE < FILENAMES AND THEN */ 

/* RECREATED WITH THE DESIRED SIZE. IF SWAP */ 

/* FILES SMALLER THAN 48K ARE DESIRED, THE VALUE */ 

/* OF N IN TH E C REATE COMMAND STRING SHOULD BE */ 

/* TWO TIMES THE REQUIRED PROGRAM SPACE IN */ 

/* KILOBYTES. 

/* THE FOUR SWAP FILES ARE ONLY REQUIRED WHEN */ 

/* MTS IS ACTUALLY RUNNING, OR BETWEEN RUNS IF */ 

/* RECOVERY WILL BE REQUESTED. 

/% */ 
/* (2) . MTSCNFG */ 

/* THE VIRTUAL FLOPPY DISK CONFIGURATION FILE */ 

/* PROVIDES THE MAPPING BETWEEN THE VIRTUAL DISK */ 

/* NUMBER (0-31) AND THE NAME OF A SYCOR FILE */ 

/* WHICH CONTAINS A FLOPPY DISK IMAGE. THE CON- */ 

/* FIGURATION FILE ALSO CONTAINS THE PROTECTION */ 

/* ATTRIBUTES OF THE VIRTUAL DISKS. A */ 

/* PHYSICAL FLOPPY DISK HAS A FIXED CAPACITY OF */ 

/* 256K BYTES, WHERE AN MTS VIRTUAL FLOPPY DISK */ 

/* MAY HAVE ANY CONVIENT SIZE UP TO 256K BYTES. */ 

THE SYSTEM ASSUMES THAT THE */ 
/* DISK IMAGE IS STORED SEQUENTIALLY ON THE */ 

/* MINI-DISK STARTING WITH TRACK 0 SECTOR 1 AND */ 

/* PROCEEDING THROUGH 26 SECTORS OF TRACK 0 TO */ 

/* TRACK 1 SECTOR 0, ETC. SPECIFYING A VIRTUAL */ 

/* DISK FILE SMALLER THAN 256K BYTES MEANS THAT */ 

/* FEWER THAN 77 TRACKS WILL BE ADDRESSABLE. */ 

/* THE CONF I GRAT I ON FILE CONTAINS 32 THIRTEEN */ 

/* BYTE RECORDS IN THE FOLLOWING FORMAT: */ 



/* I FILENAME I KEY I P i */ 

*/ 

/* 0 7 8 11 12 */ 

/* WHERE ’FILENAME* IS THE 0-8 BYTE NAME OF THE */ 

/* VIRTUAL DISK FILE AS IT APPEARS IN THE SYCOR */ 

/* DIRECTORY; ’KEY’ IS A 0-4 BYTE PROTECTION */ 

/* KEY; AND ’ P’ IS THE PROTECTION ATTRIBUTE OF */ 

/* THE DISK, I.E. ’P’ FOR READ/ WRITE PROTECTION, */ 

/* ’R’ FOR WRITE PROTECTION ONLY, AND BLANK FOR */ 

/* NO PROTECTION. */ 

/* THE CONFIGURATION FILE WILL BE UPDATED BY THE */ 

/* MTS SYSTEM COMMANDS PROTECT, UNPROTECT, AND */ 

/* RESTRICT. IN */ 

/* THE EVENT THAT .MTSCNFG IS ERRONEOUSLY */ 

/* DELETED, THE FILE MAY BE RECREATED BY USING */ 

/* THE SYCOR COMMAMDS */ 

/* CREATE . MTSCNFG N= 1 */ 

/* RUN BATCH 1=/CSST 3= . MTSCNFG */ 

/* WITH THE CASSETTE LABELED " . MTSCNFG " */ 

/* MOUNTED ON THE CASSETTE DRIVE. */ 

/* (3) . MTSRCVR */ 

/* THE RECOVERY FILE CONTAIN S A COPY OF THE */ 

/* SYSTEM STATE BLOCK AS OF THE LAST SWAP. THE */ 

/* FILE IS ONLY REQUIRED WHEN MTS IS ACTUALLY */ 

/* RUNNING, OR BETWEEN RUNS IF RECOVERY WILL BE */ 

/* REQUESTED. THE FOLLOWING SYCOR COMMAND IS */ 

/* USED TO CREATE THE FILE: */ 

/* CREATE .MTSRCVR N=2 */ 

*/ 

/ * * * * * * x * * * * * * * * * * * # * * X * :f< * * * :p * * * # * * * * * * 5fc :*c * * sp * 5fc * x X * *: * / 



TASK MANAGEMENT 



/;Mt*********** INTERMODULE LINKAGE MACROS *************/ 

C INT TB M2B GB] [TB:=1000H] C M2B: = 0600HI [GB:=0] 

[MACRO MCP ’ 1A00H’ ] 

[MACRO MTS ’ 1F00H’ ] 

[MACRO INDEX ’[HEX M2B + 3H] ’ ] 

[MACRO INDEX2 * C HEX M2B + 0DH] ’ } 

[MACRO INDEX8 ’[HEX M2B + 24H] ’ ] 

[ MACRO GET ’ [ HEX M2B + 38H] ’ ] 

[MACRO MINIDISK * [ HEX M2B + 34H] * ] 

[ MACRO MTS S MSG ’ [ HEX TB + 837H] ’ ] 

[MACRO READSTERMINAL ’[HEX TB + 8DCHI ’ ] 

[MACRO GETS TERMS STATUS ’[HEX TB + 2F9H] * ] 

[MACRO LOCK ’ M( [ HEX GB + 3C54H] ) ’ ] 

[MACRO TASKSTIMER ’ M( [ HEX GB + 3C55H] > ’ ] 

[MACRO SYSSSTACKSTOP ’[HEX GB + 3C6AH + 20]’] 

[ MACRO TASKS ADDR ’ [ HEX GB + 3E80H] ’ ] 

[ MACRO TASK ’ M( [ TASKSADDR] ) ’ ] 

[MACRO RECSFILE ’[HEX GB + 3E81H]’] 

[ MACRO TCTSSTATUS ’ [ HEX GB + 3E85H] ’ ] 

[ MACRO TCTSDM ’ [ HEX GB + 3EB9H] ’ ] 

[MACRO TCTSSIZE ’[HEX GB + 3EA9H] ’ ] 

[ MACRO TCTSBOE ’ [ HEX GB + 3EADH] ’ ] 

[ MACRO DMTSBOE ’ [ HEX GB + 3EDDH1 ’ ] 

[MACRO VDCSDRIVE ’[HEX GB + 3FEDH] ’ ] 

[ MACRO SWAPSSTACK ’ [ HEX GB + 3FF6H] ’ ] 

[ MACRO SWAPSSTACK1 ’ M< [ HEX GB + 3FF7H] > ’ ] 

/* . MDBUF = 3C7EH USED IN WRITESREC */ 

/******:*:**:**:**** GENERAL PURPOSE MACROS *******:*:*;?:***:**/ 

[INT MEMSBASE TOP TIMESLICE] 

[MEMSBASE: =4O00H] [ TIMESL ICE: =4] [TOP: =20] 

[ MACRO READ ’ 1 ’ ] 

[MACRO WRITE ’2’] 

[MACRO BUMP ’-2’] 

[MACRO DISKSERROR ’(A::0) 'ZERO’] 

[MACRO HARDWARES ERROR ’8’] 

[MACRO INPUTS WAITING * 0FFH’ ] 

[MACRO IN ’ [READ] ’ ] 

[MACRO OUT ’[WRITE] ’] 



/*#************#* MODULE DECLARATIONS as****************/ 



DECLARE ( MONITOR, BOOTSTRAP, RESUMES EXECUTION) LABEL; 
DECLARE CONTINUE LABEL; 

DECLARE DIR DATA (0); 

DECLARE SAVHL DATA (0,0); 

DECLARE I DATA ( 0) ; 

DECLARE TN DATA (0) ; 

DECLARE RSTSFLAG DATA (0); 



/*****#**:*:************ PROCEDURES *********************/ 



BUMPSTASK: PROCEDURE; 

/ * * * X * * * X * * * * * * * * * X ^ * * * * * # * * * * * X * * * * * * yz * * X * * * * * * / 

/* THIS PROCEDURE DELETES A TASK FROM THE SYSTEM WHEN */ 

/* AN IRRECOVERABLE MINI-DISK ERROR OCCURS. */ 

/* CALLED BY: SWAP, BOOTSTRAP */ 

C= [ BUMP] ; CALL [MTS]; 

E= [ HARDWARES ERROR] ; CALL [ MTSSMSG] ; 

END BUMPSTASK; 

SWAP: PROCEDURE; 

/* THIS PROCEDURE SWAPS A TERMINAL TASK BETWEEN MEMORY*/ 



/* AND THE APPROPRIATE MINI-DISK SWAP FILE. THE DIR- */ 
/* ECTION OF THE SWAP, I.E. IN OR OUT, IS DETERMINED */ 
/* BY THE VALUE OF THE VARIABLE DIR. THE */ 
/* PROCEDURE ALSO MODIFIES TCTSSTATUS TO REFLECT THE */ 
/* CURRENT LOCATION OF THE SWAP IMAGE. */ 



/* 


INPUT: 


DIR 


- DIRECTION OF SW 7 AP 


*/ 








1 = IN 


*/ 


/* 






2 = OUT 


*/ 




CALLED 


BY: 


MONITOR 


*/ 





/* SET I TO SWAP IMAGE SIZE */ 

DE= C TCT8S IZE] ; A= [ TASK] ; CALL C INDEX] ; 

I=( A=M(HL) ) ; 

/* MODIFY TCTSSTATUS */ 

HL= C TCTSSTATUS] +BC ; 

M(HL)=< A=M(HL) NN 0C0H) ; 

/* SET UP REGISTERS FOR DATA TRANSFER */ 

DE= [ TCTSBOEI ; A= [ TASK] ; CALL i INDEX2] ; CALL [GET] ; 
DE-C VDCSDRIVE] ; SWAP BASE */ A= I ; 

DO WHILE (A; 10) ? ZERO ; 

L= ( A= DIR) ; CALL C MIN ISDISK] ; 

IF C DISKSERROR] THEN 

DO; /* BUMP TASK OFF SYSTEM 
CALL BUMPSTASK; 

IF ( A=D IR; A:: CIN]) ZERO GOTO MONITOR; 
RETURN; 

END; 

BC=BC+ 1 ; DE=( HL=20OH+DE) ; 

I=( A= 1-1) ; 

END; WHILE 

END SWAP; 

WRITESREC : PROCEDURE; 

/ * * * * * * * * # * * ** * * * * * * * # * SfctfJ # * * * ** * # * * * * * * * * ** * * * * * * * * * * * / 



/* THIS PROCEDURE COPIES THE CONTENTS OF THE SYSTEM */ 
/* STATE BLOCK TO THE RECOVERY FILE. THE VARIABLE */ 
/* RECSFILE MUST BE SET TO THE FILE’S SECTOR ADDRESS */ 
/* BEFORE CALLING WRITESREC. */ 
/* CALLED BY: BOOTSTRAP , RESUMES EXECUTION */ 



/ *: * * * # * * * # * * * * * * * # * * * * *: * * # * * y: ;* * # * * *: # # ^ :* * * * * * * * * * * / 

HL=[ RECSFILE] ; 

DE= 3C7EH; /* ADDRESS OF THE BASE OF SSB */ 
C=(A=M(HL)); HL=HL+ 1 ; B= ( A=M( HL) ) ; 

L= C WRITE] ; CALL CMINISDISK]; 

IF [DISKSERROR] THEN 

DO; DISABLE; HALT; END; 

BC= BC+ 1 ; DE= ( HL=200H+DE) ; 

L= [ WRITE] ; CALL [MINISDISK1; 

IF [DISKSERROR] THEN 

DO; DISABLE; HALT; END; 

END WRITESREC; 

MONITOR: 

/ ^ ^ ^ ^ ^ /ft ^fC Jft 5ft 5ft / 



/* THIS ROUTINE IS THE TASK MANAGER OR SCHEDULER *s 
/* WHICH CONTROLS THE ALLOCATION OF THE CPU TO COM- *✓ 
/* PETING TERMINAL TASKS. IT PERFORMS THIS FUNCTION */ 
/* BY SEQUENTIALLY SCANNING THE TCTSSTATUS BYTE */ 
/* ASSOCIATED WITH EACH TERMINAL LOOKING FOR A TASK */ 
/* REQUIRING THE CPU. THE EFFECT PRODUCED IS THAT */ 
/* OF A ROUND-ROBIN SCHEDULING ALGORITHM. WHILE THE *✓ 
/* MONITOR IS LOOPING, IT INITIATES SWAPPING AS */ 
/* REQUIRED. */ 
/* CALLED BY: MTSSIPL, TERMSBLOCK (SVC MOD), SWAP, */ 
/* TIMERSHDLR ( INT MOD), BOOTSTRAP, QUIT (SVC MOD) *✓ 



SP= [ SYSSSTACKSTOP] ; /* SET STACK POINTER */ 

/* LOCK OUT SWAPPING */ 

[ LOCK] = ( A= [ LOCK] \ OlH); 

INITIALIZE RESTART FLAG */ 

RSTSFLAG= ( A=0) ; 

/* INITIALIZE TEMP TASK COUNTER *s 
TN= ( A= [ TASK] ) ; 

LOOP: /* SEARCH FOR READY TASK */ 

TN= ( A=TN+ 1 , Q03H) ; s* INCREMENT TASK NUMBER */ 
/* TEST FOR INACTIVE TASK */ 

DE= [ TCTSSTATUS] ; CALL [INDEX]; A=M( HL) ; 

IF (A: : 0) ZERO GOTO LOOP; 



/* TEST BIT 0 - BOOTSTRAP LOAD */ 

IF ( A= > A) CY THEN 
DO; 

DE= C TCTSSTATUS ] ; A= [ TASK] ; GALL [ INDEX] ; 

IF ( A=< M( HL) ) CY 

8 (B=(A=TN); A=[TASK]-B) tZERO THEN 
DO; D I R= ( A= [ OUT] ) ; CALL SWAP; END; 

C TASK] = ( A=TN) ; 

GOTO BOOTSTRAP; 

END; 

/* TEST BIT 1 - MCP 
IF < A- > A) CY THEN 
DO; 

A= [ TASK] ; STACK=PSW; SAVE OLD TASK NR */ 

[ TASK] = ( A=TN) ; CALL CMCP3; 

DE= [ TCTSSTATUS3 ; A=TN; CALL [INDEX]; 

M(HL) = < A=M(HL) 8 0FDE) ; 

/* RESET BIT 1 */ 

PS W= STACK; C TASK] = A ; 

/* RESTORE OLD TASK NR */ 
TN=(A=TN-1, 803H) ; GOTO LOOP; 

/* CONTINUE WITH TASK AFTER */ 

/* SYSTEM CALL PROCESSED */ 

END; 

/* SKIP BIT 2 - NOT USED */ 

A= > A; 

/* SKIP BIT 3 - NOT USED */ 

A= > A ; 

/* TEST BIT 4 - RST 7 */ 

IF ( A= > A) CY THEN 
DO; 

STACK=PSW; 

RST$FLAG= ( A- 0FFH) ; 

/* RESET TCT3 STATUS BITS 4 AND 3 */ 

DE= [ TCTS STATUS] ; A=TN; CALL [INDEX]; 

M( HL) = ( A=M( HL) 8 OCFH) ; 

PS W= STACK; 

A= > A ; ADJUST ACCUMULATOR FOR NEXT TEST 

GOTO CONTINUE; 

END; 

S* TEST BIT 3 - BLOCKED FOR TERMINAL I/O 
IF ( A= > A) CY THEN 
DO; 

A=TN; CALL [ GETSTERMS STATUS 3 ; 

IF ( A: : [ INPUTS WAITING] ) ZERO THEN 
DO; /* NO LONGER BLOCKED */ 

IF ( B= ( A= TN) ; A=CTASK3-B) !ZERO THEN 
DO; /* TASK, TN NOT EQUAL */ 

DE= C TCTSSTATUS 3 ; A= [ TASK] ; 

CALL [ INDEX] ; 

IF ( A= < M( HL) ) CY THEN 

DO; /* SWAP OUT OLD IMAGE */ 

D IR= ( A= [ OUT3 ) ; 

CALL SWAP; 

END; 

/* SWAP IN NEW IMAGE */ 

[ TASK] = ( A= TN) ; 

DIR=( A=[ IN]) ; CALL SWAP; 

END; 

CALL [READSTERMINAL3 ; 

[ SWAPSSTACK1 3 = A; 

RESET TCTSSTATUS BIT 3 */ 

DE= [ TCTSSTATUS 3 ; A= [ TASK] ; CALL C INDEX] ; 
M( HL) - ( A- M( HL) 8 0DFH) ; 

GOTO RESUMESEXECUT I ON ; 

END 

ELSE GOTO LOOP; 

END; 

CONTINUE: 

/* TEST BIT 6 - RESUME EXECUTION - FM DISK */ 

IF ( A= > A) CY THEN 
DO; 

DE= [TCTSSTATUS 3 ; A= C TASK] ; CALL [INDEX]; 
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IF CA=<M(HL) ) CY THEN 

DO; D I R= ( A= C OUT] ) ; CALL SWAP; END; 

C TASK] = ( A=TN) ; 

DIR=(A=[ IN] ) ; CALL SWAP; 

GOTO RESUME3EXECUTI0N; 

END; 

/* BIT 7 SET - RESUME EXECUTION - IN MEMORY */ 
GOTO RESUME® EXE CUT I ON ; 

/* END MONITOR */ 

BOOTSTRAP: 

/* THIS ROUTINE EXAMINES THE DISK MAP FOR THE CURRENT */ 
/* TASK; DETERMINES THE VIRTUAL DISK ATTACHED TO DRIVE*/ 
/* A; LOADS THE FIRST 512 BYTES FROM THE DISK INTO */ 
/* MEMORY STARTING AT THE BASE OF THE USER SWAP AREA; */ 
/* AND THEN TRANSFERS CONTROL TO THE CODE JUST LOADED. */ 

/ ** * ** * * * * ** * * * * * * * *** * * * * * * * ** # * * * * * ** ** * * * * ** #: * * * * / 
/* DETERMINE DISK NR ATTACHED TO DRIVE A */ 

DE= C TCTSDM] ; A=CTASK1; CALL C INDEX8] ; 

A=M(HL) Q 1FH; 

/* DETERMINE BOE FOR DISK */ 

DE= [ DMTSBOE] ; CALL [ INDEX2] ; CALL £ GET] ; 

/* READ FIRST SECTOR ON VIRTUAL DISK */ 

DE= C MEMSBASEI ; L= C READ] ; CALL CMINISDISK]; 

IF [DISK® ERROR] THEN 

DO; /* BUMP TASK OFF SYSTEM */ 

CALL BUMPSTASK; 

CALL WTUTESREC; 

GOTO MONITOR; 

END; 

/* UPDATE SYSTEM STATUS */ 

DE- [ TCTSSTATUS] ; A=CTASK]; CALL C INDEX] ; 

A=M(HL) N 80H; /* SET BIT 7 */ 

M( HL) = ( A= A Q 0FEH) ; /* RESET BIT 0 */ 

CALL WRITESREC; 

C TASKSTIMER] = ( A-C TIMESLICE] ) ; /* RESET TASKSTIMER */ 

[ LOCK] =( A= £ LOCK] Q 0FEH) ; /* UNLOCK SWAPPING */ 

SP=0FEFFH; 

GOTO [ MEM® BASE] ; 

/* END BOOTSTRAP */ 

RESUME® EXECUT ION: 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX****/ 

/* THIS ROUTINE TRANSFERS CONTROL BACK TO A USER TASK */ 
/* WHICH HAS BEEN SWAPPED INTO MEMORY. */ 

/******************************************************/ 
CALL WRITESREC; 

/* UPDATE SYSTEM STATUS */ 

[TASKSTIMER] =( A=C TIMESLICE] ) ; /* RESET TASKSTIMER */ 

s* RESTORE ORIGINAL VALUE OF STACK POINTER */ 

/* AND ALL REGISTERS FROM SWAPSSTACK */ 

SP=[ SWAPSSTACIO ; 

PSW= STACK; BC=STACK; DE= STACK; HL= STACK; 

SAVHL=HL; HL= STACK; 

SP= HL; /-x RESTORE USER SP xs 
STACK=PSW; DISABLE; 

C LOCK] =( A= C LOCK] 8 OFEH) ; /* UNLOCK SWAPPING x/ 

HL=SAVHL; /* RESTORE USERS HL xy 
IF ( A= RSTSFLAG ; A: : OFFH) ZERO THEN 
DO; sx RST.7 REQUESTED 
PS W= STACK; ENABLE; 

CALL 38H; /x RST 7 */ 

RETURN; 

END 

ELSE 

DO; /* NORMAL RETURN */ 

PS W= STACK; ENABLE; 

RETURN; /x RETURNS TO INTERRUPT POINT */ 

/x IN USER SWAP IMAGE x/ 

END; 

/* END RESUME3EXECUTI0N x/ 
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EOF 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 
/xxxxxxxxxxxxxxxxx UTILITY PROCEDURES xxxxxxxxxxxxxxxxx/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/****xxxxxxxxxxx INTERNAL MACROS 
[MACRO ABNORMALSCOMPLET I ON *OFFH*3 
[MACRO HARD WARES ERROR ’8’ 3 
[MACRO MTS S MSG * 1837H’ 3 
[ MACRO READ *1*3 
[MACRO P RTS SEC ’ 3FE2H* 3 

INDEX: PROCEDURE; 

/XX :*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/* GIVEN THE BASE ADDRESS OF A BYTE VECTOR AND AN */ 
/* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS x/ 
/* OF THE INDEXED ENTRY. */ 
/* INPUT: A - INDEX VALUE (USUALLY TASK) x/ 
/x DE “ BASE ADDRESS OF VECTOR x/ 
/* OUTPUT: BC - INDEX VALUE */ 
/x DE - SAME AS INPUT x/ 
/x HL - CALCULATED ADDRESS OF INDEXED ENTRY */ 
/x CALLED BY: SWAP, MONITOR, VALSDISK, CLEARSFLAG, x/ 
/x ATTACH, LOGIN, QUIT, SIZE, TERMSBLOCK, */ 
/* SELECTSDRIVE, RECOVERS STATUSSL INE , X/ 
/x PROTECT, RESTRICT, UNPROTECT x/ 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

B= 0 ; C= A; 

HL= BC+DE; 

END INDEX; 

INDEX2 : PROCEDURE; 

/ * * * * * * * * * :*: ** * x x * * * * * * * x * * * * * * * * x * * ** * * * * * * * :*: ;#r* # * * * * * * / 
/* GIVEN THE BASE ADDRESS OF AN ADDRESS VECTOR AND AN *✓ 
/* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS x/ 



/x OF THE LOW ORDER BYTE OF THE INDEXED ENTRY. */ 
/x INPUT: A “ INDEX VALUE (USUALLY TASK) x/ 
/x DE - BASE ADDRESS OF \ECTOR x/ 
/x OUTPUT: BC - CALCULATED OFFSET = 2 x INDEX VALUE */ 
/x DE - SAME AS INPUT xs 
/X HL - CACULATED ADDRESS OF INDEXED ENTRY */ 
/x CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE x/ 



/ #fC#fv 2fC2fC 2fC5fC2fC2fC 3ft Ifl ^ £fC5fC 3ft 3ft3ft 3ft 3ft 3ft 3ft 3ft ^ft> 3ft 3ft 3ft 3ft 3ft 3ft 3ft 3ft *3fC 3ft 3ft 3ft 3^t 3ft 3ft 3ft 3ft 3ft 3ft / 

B=0; C= ( A= < < A) ; 

HL= BC+DE; 

END INDEX2; 

I NDEX4 : PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXX/ 



/x INPUT: A - INDEX VALUE x/ 
/x DE - BASE ADDRESS OF VECTOR */ 
/* OUTPUT: BC - CALCULATED OFFSET = 4 * INDEX VALUE */ 
/* DE - SAME AS INPUT */ 
/x HL - CALCULATED ADDRESS OF INDEXED ENTRY x/ 
/x CALLED BY: VALSKEY, UPDATESCNFGSF ILE , PROTECT, */ 
/x RESRTICT, UNPROTECT X/ 



/*X xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
B=0 ; C=( A=<< (A=<< A) ) ; 

HL= BC+DE; 

END INDEX4; 

I NDEX8 : PROCEDURE; 

/X>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/X INPUT: A “ INDEX VALUE 

/x DE - BASE ADRESS OF VECTOR x/ 
/X OUTPUT: BC - CALCULATED OFFSET = 8 x INDEX VALUE x/ 
/x DE - SAME AS INPUT X/ 
/x HL - CALCULATED ADDRESS OF INDEXED ENTRY x/ 
/ x CALLED BY: BOOTSTRAP, VALSDRIVE, CLEARS DM, ATTACH, x / 
/ X SELECTSDRIVE, REC O VERS STATUSSL INE, x/ 
/x UPDATESCNFGSF ILE *s 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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B=0; C= ( A= < < ( A= < < ( A= < < A) ) ) ; 

HL= BC+ DE { 

END INDEX8; 

PUT: PROCEDURE; 

/* ^^^XXXXXXXXXXXXXXXXrXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/^ 



/* STORE A TWO BYTE ADDRESS IN A SPECIFIED VECTOR. */ 
/* INPUT: DE - ADDRESS TO BE STORED */ 
/* HL - BASE ADDRESS OF VECTOR */ 
/* OUTPUT: BC - UNCHANGED */ 
/* DE - SAME AS INPUT */ 
/* HL - BASE ADDRESS + 1 */ 
/* CALLED BY: RECOVER, INITIALIZE */ 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
M(HL)=E; HL= HL+ 1 ; M(HL)=D; 

END PUT; 

GET: PROCEDURE; 

X^:^:^:^:^^^:^:^(^:^:^:^:^^:^^:^:^:^^:^:^tXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/* FETCH A TWO BYTE ADDRESS FROM A SPECIFIED VECTOR. */ 



/* INPUT: HL - BASE ADDRESS OF VECTOR */ 
/* OUTPUT: BC - ADDRESS FETCHED */ 
/* DE - ADDRESS FETCHED */ 
/* HL - BASE ADDRESS + 1 */ 
/* CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE */ 



/ * * * * X * * # * * * # * x X * * * * * * * * x X * * * * * * * * * * * * *cfc X * * * * * * * *: * * * ** * / 
E=M( HL) ; HL= HL+ I ; D=M( HL) ; BC=DE; 

END GET; 

MOVBUF : PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/* THIS IS A GENERAL PURPOSE UTILITY PROCEDURE WHICH */ 



/* MOVES A SPECIFIED NUMBER OF BYTES FROM A SOURCE */ 
/* BUFFER TO A DESTINATION BUFFER. */ 
/* INPUT: BC - NUMBER OF BYTES TO BE MOVED */ 
/* DE - BASE ADDRESS OF SOURCE BUFFER */ 
/* HL - BASE ADDRESS OF DESTINATION BUFFER */ 
/* CALLED BY: MTSSIPL, AB0RT3IPL, SEARCHED I RECTORY, */ 
/* LOGIN, READ* FLOPPY, VRITESFLOPPY, */ 
/* INITIALIZE, TIMERSHDLR ( INT MOD) */ 



/ X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X * X X X X X X XX X X X * *: * * X X X X X X X } : / 

REPEAT; 

M( HL) = ( A=M( DE) ) ; 

HL= HL+ 1 ; DE= DE+ 1 ; 

UNTIL (BC=BC-1; A=0; A::C) ZERO 8 (A::B) ZERO; 

END MOVBUF; 

MIN I*D ISK: PROCEDURE ; 

/ * X x * * X # * x * X * X * X X X * X X sf; x X x * * X * # X x * sfc * ^ * * * :* * * * * X * * *: :* / 

/* THIS PROCEDURE TRANSFERS A SPECIFIED 512 BYTE */ 

/* BUFFER BETWEEN MEMORY AND THE MINI-DISK. THE DIR- */ 
/X ECTION OF THE TRANSFER IS INDICATED BY THE OP CODE.*/ 
/* ERROR PROCESSING IS LIMITED TO CHECKING THE STATUS */ 
/* RETURNED BY THE MINI-DISK CONTROLLER FOR * NORMAL */ 
/* COMPLETION.’ WHEN ANY OTHER STATUS IS RETURNED THE */ 
/* ROUTINE DISPLAYS THE MESSAGE 1 HARDWARE ERROR’ ON */ 



/x THE TERMINAL CURRENTLY ALLOCATED THE CPU AND */ 
/* ABORTS THE OPERATION. */ 
/* INPUT: BC - MINI-DISK SECTOR NUMBER */ 
/* DE - DMA BUFFER BASE ADDRESS */ 
/* L - OPERATION CODE: */ 
/* 1 = READ */ 
/* 2 = WRITE */ 
/* 3 = WRITE/ VERIFY */ 
/* OUTPUT: A - RETURNS 00H IF COMPLETION NORMAL, */ 
/* OTHERWISE RETURNS FFH */ 
/* BC - SAME AS INPUT */ 
/* DE - SAME AS INPUT */ 
/* CALLED BY: READS D I RECTORY, RECOVER, INITIALIZE, */ 
/* WRITESREC, SWAP, BOOTSTRAP, READSBUF , */ 



/* WRITESBUF, READS P RTS BUF , VRITESPRTSBUF */ 

/ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx / 
/* SET DCB CHECKSUM IN LOCN 4CH */ 
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M< 4CH) = ( A=0\\B, \\C, \\D, WE, \\L) ; 

/* SET SECTOR NUMBER IN DISK CONTROL BLOCK */ 

M( 45H) - ( A=B) ; M( 44H) = ( A= C) ; 

/* DEBUG - TO ENSURE SYCOR SYSTEM IS NEVER OVERWRITTEN 
STACK= HL ; HL=0B7H; 

L=(A=L-C); H=(A=H-D); 

IF !CY THEN CALL 10H; 

HL= STACK? 

/* SET DMA BUFFER ADDRESS IN DISK CONTROL BLOCK *s 
M( 43H) = ( A=D) ; M( 42H) = ( A= E) ; 
s* INITIATE OPERATION 
M( 40H) = ( A=L) ; 

/* WAIT UNTIL OPERATION COMPLETE */ 

REPEAT; 

A= M( 4 1H) ; 

UNTIL (A: 50) !ZERO; 

/* TEST A FOR COMPLETION STATUS 

IF ( M( 4 1 H) = ( A- A- 1 ) ) ZERO RETURN; NORMAL COMPLETION 

M( 4 1H) = ( A= 0) ; 

E= [ HARDWARES ERROR] ; 

CALL C MTSSMSG] ; 

A=[ ABNORMALSCOMPLETION] ; 

END MINI 3D ISK; 

READS P RTS BUF : PROCEDURE ; 

/* THIS ROUTINE IS CALLED INITIALLY BY WRITESPRINTER */ 

/* IN ORDER TO FILL THE PRINT BUFFER WITH THE FIRST 
/* SECTOR OF THE MTSPRT FILE PRIOR TO OUTPUT OF THE */ 
FIRST CHARACTER TO THE PRINTER. SUBSEQUENT CALLS */ 

/* ARE MADE BY THE PRINTERS HDLR IN THE INTERRUPTS */ 

/* CONTROLLER UNTIL THE END OF FILE IS ENCOUNTERED */ 

CALLED BY: WRITESPRINTER, PRINTERS HDLR, RECOVER */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXX-XzXXXXX.XX'X.XXXXXXXXXXXXXXXXXy/ 

HL=CPRTSSEC] ; C=M(HL); HL= HL+ 1 ; 

B=M(HL); /* BC HAS CURRENT MTSPRT SECTOR * */ 

DE= 100H; L= [ READ] ; 

CALL MINI SD ISK; 

BC= BC+ 1 ; HL= C PRTSSEC ] ? 

M(HL)=C; HL=HL+ 1 ; M( HL) = B; 

END READS PRTS BUF ; 



EOF 

/'XXXXXXXXXXXXXXXX INITIAL PROGRAM LOAD ****************/ 



/************* INTERMODULE LINKAGE MACROS *************/ 
[ INT MB M2B SB TB] 

CMB:=0300H] CM2B:=0600H] CSB: = 1F00H] [T3:=100OH] 

[MACRO MONITOR ’[HEX MB + 0AAH] ’ ] 

[MACRO MOVBUF ’[HEX M2B + 41H]’] 

[MACRO PUT * [ HEX M2B + 3lH]*] 

[MACRO MINI SD ISK ’[HEX M2B + 34H] * ] 

[MACRO INDEX ’[HEX M2B + 3H] ’ ] 

[MACRO INDEX8 ’[HEX M2B + 24H] ’ ] 

[MACRO RE ADS PRTS BUF ’[HEX M2B + 9 EH] ’ ] 

[MACRO MTS ’[HEX SB + 0]’] 

[ MACRO MTSSMSG ’ [ HEX TB + 837H] ’ ] 

[MACRO CLEARS STATUS 3 L I NE ’[HEX TB + 827H] ’ ] 

[MACRO TERM INALS STATUS ’[HEX TB + 8D2H] ’ ] 

[MACRO READSTERM I NAL ’[HEX TB + 8DCH] ’ ] 

[MACRO WRITE 3 TERM I NAL ’[HEX TB + 93CH] ’ ] 

[MACRO SIZESMSG ’[HEX TB + 864H] ’ ] 

[ MACRO STATUSSMSG ’ [ HEX TB + 88CH] ’ ] 

[MACRO BUFSPTR ’3C40H’] 

[MACRO TASK ’3E80H*] 

[MACRO RECSFILE ’3E8IH’] 

[MACRO TCTSSTATUS ’ 3E85H’ ] 

[MACRO TCTSSIZE ’ 3EA9H* ] 

[MACRO TCTSEOE ’ 3EB5H’ ] 



121 



C MACRO TCT3DM * 3E69H* ] 

[MACRO CNFGSFILE ’3E83H* ] 

[MACRO D MTS FLAG ’ 3EBDH* 3 
[MACRO DMTSBOE * 3EDDH* ] 

[MACRO DMTSEOE * 3F 1DH* ] 

[MACRO DMTSKEY ’ 3F5DH’ ] 

[MACRO PRTSCNTRL * 3FDDH’ ] 

[MACRO PRTSBOE ’ 3FDEH* ] 

[MACRO PRTSEOE * 3FE0H’ ] 

[MACRO PRTSSEC *3FE2H’] 

[MACRO SYSSSTACK ’ 3C6AH* ] 

/* .MDBUF = 3C7EH - USED IN RECOVER x/ 

/******:*:*:#:*****:*; GENERAL PURPOSE MACROS xxxxxx*********/ 

[ INT IPLSOFFSET] 

[ IPLSOFFSET:=35C7H3 /x ADDR OF LABEL SHIFT + 1200H X/ 

/**********x*x**x MODULE DECLARATIONS xxx**x*x**x***xxxx/ 

DECLARE <I,J) BYTE; 

DECLARE MAXC2) BYTE; 

/x ADDRESS OF LAST ENTRY + 1 IN DIRECTORY IMAGE */ 
DECLARE RECSNAMEC 9) BYTE INITIAL ( * . MTSRCVRS * ) ; 



/XXXXXXXXXXXXXXXXXXX PROCEDURES xxxxxx****#*xxx**x****5*:/ 



ABORTS IPL: PROCEDURE ( MSG) ; 

/x WHENEVER A CONDITION OCCURS DURING THE IPL PROCESS X/ 
/* WHICH PREVENTS NORMAL COMPLETION OF THE IPL THIS */ 



/x PROCEDURE IS CALLED TO TERMINATE EXECUTION AND X/ 
/x DISPLAY AN ERROR MESSAGE AT TERMINAL 0. */ 
/x INPUT: MSG - BASE ADDRESS OF ERROR MESSAGE x/ 
/X TERMINATED BY * S * */ 
/x CALLED BY: READS D I RECTORY, INITIALIZE. RECOVER, */ 



/*2fcxXXX;*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 



DECLARE ABORTSMSG DATA ( * IPL ABORTED - *) ; 
/X DISPLAY ' IPL ABORTED* AT TERMINAL 0 */ 



BC= 14; DE- .ABORTSMSG; HL=0700H; 

CALL [ MO VBUF ] ; 

HL = MSG; A=*S’; 

DO C=0 BY C=C+1 WHILE (A::M(HL>> IZERO; 
HL= HL+ 1 ; /x COUNT CHARS IN MSG */ 



END; 



B= 0 ; DE=(HL=MSG) 
CALL [MO VBUF I; 
DISABLE; HALT; 
END ABORTS IPL; 



; HL= 070EH; 

/X DISPLAY MSG AT TERMINAL 0 */ 



READS D I RECTORY: PROCEDURE ; 

/'***XXX*XXXXXXXXXXXXX**XXXXXXXXXX**XXXXXX*XXXX*XXXXXX*XX/' 

/x DURING THE INITIALIZATION PROCESS IT IS NECESSARY */ 

/x TO DETERMINE THE SECTOR NUMBERS OF SEVERAL SYSTEM */ 

/x FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR FORMAT.*/ 

/x MULTIPLE DIRECTORY SEARCHES COULD LEAD TO REPEATEDLY*/ 

/x READING THE SAME BLOCK OF MINI-DISK SECTORS. TO */ 

/x ELIMINATE MOST OF THESE UNNECESSARY READ OPERATIONS */ 

/X THIS PROCEDURE READS THE ENTIRE SYCOR DIRECTORY x/ 

/x INTO MEMORY AT ONE TIME, THUS REDUCING THE OVERHEAD */ 

/x INVOLVED IN MULTIPLE SEARCHES. */ 

/x CALLED BY: MTSSIPL */ 

/*****:f:*;*:*:f:*:*:f:************XXXXXXXXXXXXXXX*XXXXX*XXXXXXXX/ 

[INT SYCORSDIRSBASE] /X SYCOR DIRECTORY BASE x/ 
[SYCORSDIRSBASE: =20H] /x SECTOR NUMBER */ 

DECLARE READS MS G( 22) BYTE INITIAL (* CANNOT READ DIRECTORY® * ) 
/X SET UP REGISTERS FOR DISK READ */ 

BC= [ HEX SYCORSDIRSBASE]; 

DE= 3200H; /x 3000H + 200H = DIRECTORY BASE ADDRESS */ 

/x READ NUMBER OF SECTORS INDICATED */ 

/x IN DIRECTORY HEADER RECORD */ 

REPEAT; 

L= 1 ; /X READ x/ CALL CMINISDISK]; 
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IF (A: : 0) !ZERO /* DISKERROR */ 

CALL ABORTS I PL ( . READS MSG) ; 

DE= ( HL=200H+DE) ; BC=BC+ 1 ; 

UNTIL <A=M(520AH); sx DIR BASE + 0AH xs A::C) CY; 

/* CALCULATE ADDRESS OF LAST ENTRY + 1 IN IMAGE */ 

B 3 C HEX SYCORSDIRSBASE-1] ; 

A=A-B; /* A 3 NR SECTORS IN DIRECTORY */ 

D 3 < A 3 << A) ; 

E=0; sx DE = NR SECTORS * 512 xs 
HL= 520 1H; /* DIR BASE + 1 */ HL=HL+DE; 

MAX=HL; 

END READSD I RECTORY; 

SEARCHSD I RECTORY: PROCEDURE ; 

S X * * * * X * * X X X * X * * * X * # * * * X X * * * * # * * * X X X * X * :*r* * * * * # * * * * * * * 2R X / 

/* GIVEN THE BASE ADDRESS OF A VECTOR CONTAINING THE xs 
SX NAME OF A FILE IN SYCOR FORMAT, THIS ROUTINE WILL 



/* SEARCH THE DIRECTORY IMAGE READ INTO MEMORY BY */ 
sx READSD I RECTORY * IF THE FILE ENTRY IS FOUND, THE xs 
sx BOE AND EOE VALUES ARE RETURNED. xs 
SX INPUT: DE - BASE ADDRESS OF FILENAME VECTOR */ 
SX ASSUMED TO BE 8 BYTES LONG xs 
sx OUTPUT: BC - BOE OR FFFFH IF FILE NOT FOUND xs 
sx DE - EOE OR FFFFH IF FILE NOT FOUND */ 
/x CALLED BY: INITIALIZE, RECOVER */ 



xxxxmmzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 

DECLARE LOOP LABEL; 

/x MOVE FILENAME TO LAST ENTRY + 1 xs 
BC=8; HL=MAX; CALL CMOVBUF]; 

DE 3 524 1 H; sx DIR BASE + 41H - ADDRESS OF FIRST ENTRY xs 
LOOP: sx ADVANCE TO NEXT ENTRY xs 

STACK 3 DE; HL 3 MAX; B=8; 

REPEAT; sx COMPARE CHAR BY CHAR xs 
IF (A=M(DE): A: : M( HL) ) ZERO 
\ (IF (A::0) ZERO 8 ( A 3 M< HL) -20H) ZERO 
THEN CY= 1 ELSE CY=0) CY 
THEN sx CHAR MATCH xs 
DO; 

DE=DE+1; HL=HL-i-l; 

END 

ELSE /* NON- MATCH xs 
DO; DE 3 STACK; 

DE= ( HL=40H+DE) ; 

GOTO LOOP; 

END; 

UNTIL ( B= B- 1 ) ZERO; 

SP= ( HL=2+SP) ; sx CLEAR STACK xs 

sx FALLING THRU LOOP MEANS NAMES MATCH, xs 

SX MUST TEST FOR SUCCESS OR FAILURE OF SEARCH xs 
IF ( A 3 MAX( I) ; A: :D) CY sx X: :Y=CY 3 > X< Y xs 
\( IF ZERO Q ( A 3 MAX( 0) ; A::E) CY THEN CY= 1 ELSE CY=0) 

CY THEN 

DO; sx SEARCH FAILED xs 
BC=0FFFFH; DE= BC ; 

END 

ELSE DO; sx SEARCH SUCCESSFUL xs 
HL-3+DE; 

C=M( HL) ; HL 3 HL+ 1 ; 

B= M( HL) ; HL=HL+I; 

E= M( HL) ; HL- HL+ 1 ; 

D= M( HL) ; ’ 

END; 

END SEARCHSD I RECTORY; 

RECOVERSSTATUSSL I NE : PROCEDURE ; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

sx ROUTINE TO BUILD AND DISPLAY THE STATUS LINE WHEN xs 
SX A RECOVERY IS PERFORMED. THIS ROUTINE DISPLAYS ALL XS 
sx ACTIVE DRIVES AND ASSOCIATED DISKS AND DISPLAYS xs 
sx SWAP IMAGE SIZE FOR EACH TASK. xs 

SX CALLED BY: RECOVER 

SXXXXXXXi kxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 
DECLARE SAVESTASK BYTE; 
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HL= C TASK: ; 

SAVE$TASK=( A=M(HL) ) ; /* SAVE CURRENT TASK NUMBER */ 

I = ( A- 0 ) ; /* INITIALIZE TASK COUNTER 

/% CHECK TCTSSTATUS FOR ACTIVE TASK */ 

REPEAT; /* FOR ALL 4 TASKS */ 

DE= C TCTSSTATUS] ; CALL C INDEX] ; 

IF (A=M(HL); A::0> !ZERO THEN /* TASK ACTIVE */ 
DO; 

HL= [TASK] ; M(HL) = (A=I); /* SET TASK NUMBER */ 
DE= C TCTSDM3 ; CALL C INDEX8I ; 

J=(A=0); /* INITIALIZE DRIVE COUNTER */ 

REPEAT; /* FOR ALL 8 DRIVES */ 

IF ( A=< M( HL) ) CY THEN 
DO; /* DRIVE IN USE 

B=(A=J); C= ( A= M( HL) Q IFH) ; 

IF (A=M(HL) 8 40H) !ZERO 
THEN A= 72H ELSE A= ’ ’ ; 

STACK=HL; 

s* DISPLAY ACTIVE DRIVE AND DISK */ 
CALL [ STATUSSMSG] ; 

HL= STACK; 

END; 

UNTIL ( HL=HL+ 1 ; J=(A=J+1); A::8> ZERO; 

/* DISPLAY SIZE MESSAGE */ 

DE= C TCT3S IZE] ; A= I ; CALL [ INDEX] ; 

CY= 0 ; A= > M( HL) ; CALL CSIZESM SGI; 

END; 

UNTIL (I=(A=I+1); A::4) ZERO; 

/* RESTORE CURRENT TASK NUMBER */ 

HL- [ TASK] ; M( HL) = ( A= S AVESTASK) ; 

END RECOVERSSTATUSSLINE; 

RECOVER: PROCEDURE; 

/ * * * y * * * * * * * * X * * * * * 5ft x * zk * x * *: * * * * * ^ tk * * * * * * sk* * * * * / 



/* MTS HAS BEEN DESIGNED SO THAT THE SYSTEM STATE AT */ 
/* ANY INSTANT IS DEFINED BY A COMPACT, CONTIGUOUS 
/* GROUP OF BYTES KNOWN AS THE SYSTEM STATE BLOCK. */ 

/* EACH TIME THAT SWAPPING OCCURS THE SSB IS WRITTEN */ 

TO THE MINI-DISK FILE . MTSRCVR. IF THE TASK JUST 
/* SWAPPED IN CAUSES A SYSTEM CRASH, RECOVERY IS */ 

/* ACCOMPLISHED BY REBOOTING MTS AND ANSWERING ’ Y’ TO */ 
/* THE RECOVERY QUERY. MTS WILL READ .MTSRCVR BACK */ 
/* INTO THE SSB, DELETE THE OFFENDING TASK, AND */ 

/* CONTINUE WITH THE NEXT READY TASK. */ 

/* NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE */ 

/* AND EOE VALUES RETURNED BY SEARCHED I RECTORY */ 

/* ARE EQUAL FOR A SINGLE-SECTOR FILE. */ 

/* CALLED BY: MTSSIPL 



/* FIND MINI-DISK SECTOR ADDRESS OF .MTSRCVR 
DE= . RECSNAME ; 

CALL SEARCHSD I RECTORY; 

IF ( A=B; A::0FFH) ZERO CALL ABORTS I PL( . RECSNAME) ; 
/* READ .MTSRCVR INTO SSB */ 

DE= BC ; /* MOVE BOE TO DE */ 

HL-CRECSFILE3 ; CALL [PUT]; 

DE= 3C7EH; /* ADDRESS OF SSB - . MDBUF 
DISABLE; 

I=( A=0) ; 

REPEAT; 

L= 1 ; /* READ CALL [MINISDISKI; 

IF ( A : : 0 ) !ZERO /* DISK ERROR */ 

CALL ABORTS I PL( . RECSNAME) ; 

BC= BC+ 1 ; DE= ( HL=200H+DE) ; 

UNTIL (I=(A= I+l); A::2) ZERO; 

IF ( A=M( [PRTSCNTRL] ) ; A=<A; A=<A) CY THEN 
DO; /* COMPLETE PRINTING TASK */ 

HL= [ PRTSSEC1 ; DE= C PRTSBOE1 ; 

M(HL) = ( A=M(DE) ) ; HL= HL+ 1 ; DE= DE+ 1 ; 

M( HL) = ( A=M( DE) ) ; 

/* SET BUFFER PTR TO 100H 
HL=[BUFSPTR] ; M(HL)=0; HL= HL+ 1 ; 

M( HL ) - 1 ; 
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CALL [ READSPRTSBUF] ; 
OUT(8AH)=(A=0) ; 

END? 

ENABLE; 

/* DELETE TASK CAUSING CRASH 
C=-2; /* BUMP */ 

CALL C MTS] ; 

E=9; /* TASK DELETED */ 

CALL C MTSSMSG] ; 

CALL RECOVERSSTATUSSL I NE ; 

END RECOVER; 

INITIALIZE: PROCEDURE; 



/* THE SYSTEM STATE BLOCK CONSISTS OF THREE SETS OF */ 
/* VARIABLES: SYSTEM CONTROL, TASK CONTROL TABLE, AND */ 
/* THE DISK MAP TABLE. THE OBJECT MODULE GENERATED BY 
/* THE ML80 COMPILER CONTAINS INITIAL VALUES FOR */ 

s* SYSTEM CONTROL VARIABLES AND MOST OF THE TCT. IN 
/* ORDER TO INITIALIZE THE REST OF THE TCT IT IS */ 

/* NECESSARY TO SEARCH THE SYCOR DIRECTORY IMAGE */ 

/* COPIED INTO MEMORY BY READSD I RECTORY FOR BOE AND *s 

/* EOE VALUES FOR THE RECOVERY FILE AND ALL FOUR SWAP */ 

/* FILES. TO INITIALIZE THE DMT THE VIRTUAL DISK */ 

/* CONFIGURATION FILE, . MTSCNFG, MUST BE READ INTO */ 
/* MEMORY AND BOE AND EOE VALUES FOR THE VIRTUAL DISK */ 
/* FILES EXTRACTED FROM THE SYCOR DIRECTORY IMAGE. */ 
/* THE PROTECTION ATTRIBUTES FOR EACH VIRTUAL DISK */ 
/* ARE ALSO COPIED INTO THE DMT FROM .MTSCNFG. */ 

/% NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE */ 
/■* AND EOE VALUES RETURNED BY SEARCHSD I RECTORY */ 

/* ARE EQUAL FOR A SINGLE-SECTOR FILE. */ 

/* CALLED BY: MTS® I PL 



DECLARE ENTRYSBASE( 2) BYTE; 

DECLARE CNFGSNAME! 9) BYTE INITIAL ( ’ . MTSCNFG® ’ ) ; 
DECLARE SWAPSNAME! 9) BYTE INITIAL ( ' . MTSSWP0S * ) ; 
DECLARE SYSD ISK( 9 ) BYTE INITIAL (’SYS DISK®’); 

DECLARE PRTSF ILESNAME! 9) BYTE INITIAL ( ’ . MTSPRT S’); 
/* SET UP RECOVERY FILE */ 

DE= . RECSNAME ; CALL SEARCHSD I RECTORY; 

IF ( A=B; A: : 0FFH) ZERO CALL ABORTS IPL( . RECSNAME) ; 

E=( A=E-C) ; 

IF ( E= E- 1 ) TZERO THEN CALL ABORTS I PL( . RECSNAME) ; 

DE=BC ; /'* SET UP TO STORE BOE 
HL= C RECSF ILEl ; CALL [PUT!; 

/* SET UP TASK CONTROL BLOCK IN SSB */ 

1 = ( A=4) ; STACK® ( HL= C TCTSEOEI ) ; 

REPEAT; 

DE= . SWAPSNAME ; CALL SEARCHSD I RECTORY; 

IF (A=B; A::0FFH) ZERO 

CALL ABORTS I PL< .SWAPSNAME) ; 

/* CHECK THAT SWAP FILE AT LEAST 16K 
L=(A=!C,+1); H=( A= !B,++0) ; 

HL = HL+ DE; 

IF ( A=L; A: : 3 1 ) CY CALL ABORTS I PL( . SWAPSNAME) ; 

HL= STACK; CALL C PUTI ; 

DE= BC ; BC=-9; 

HL=HL+ BC; CALL C PUT! ; 

BC=9 ; STACK® ( HL= HL+BC) : 

SWAPSNAME(7) = ( A® SWAPSNAME! 7) + 1) ; 

UNTIL (I = (A=I-1)) ZERO; 

SP=!HL=2+SP) ; /* CLEAR STACK 

DE= .PRTSF ILESNAME; CALL SEARCHSD I RECTORY ; 

IF !A=B; A: : 0FFH) ZERO CALL ABORTS I PLC . PRTSF ILESNAME) 
HL= C P RTS EOE I ; CALL [ PUT] ; 

DE= BC; HL= [ PRTSBOE] ; CALL CPUTI; 

SET UP DISK MAP TABLE IN SSB 
DE= . CNFGSNAME ; CALL SEARCHSD I RECTORY; 

IF <A=B; A? : 0FFH) ZERO CALL ABORTS I PL( . CNFGSNAME) ; 

HL= C CNFGSF ILEI ; CALL [PUT]; 

/* READ CONFIGURATION FILE INTO MEMORY */ 

DE= 5000H; z'* ADDRESS FOR BASE OF MEMORY */ 
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L=l; /* READ */ CALL CMINISDISIQ; 

IF (A::0> JZERO DISK ERROR */ 

CALL ABORTS I PL( .CNFGSNAME) ; 

HL= 5000H; /* MEMORY BASE ADDRESS */ 

IF (A=M(HL); A: : 2EH) JZERO THEN 

DO; /* FIRST BYTE OF . MTSCNFG ROT */ 

ELIMINATE SYCOR OVERHEAD FROM .MTSCNFG 
/* SYCOR OVERHEAD (OH) OF THE FORM: */ 

2 BYTES OH, 10OH BYTES DATA */- 

/* 4 BYTES OH, 0A0H BYTES DATA */ 

DE= 3002H; ADDRESS OF SOURCE */ 

BC= 100H; /* NUMBER OF BYTES TO BE MOVED */ 

CALL [ MOVBUF ] ; 

DE=5 106H; /* ADDRESS OF SOURCE */ 

HL=5 100H; /"* ADDRESS OF DESTINATION 

BC=0A0H; /* NUMBER OF BYTES TO BE MOVED 
CALL C MOVBUF] ; 

/* UPDATE CONFIGURATION FILE */ 

DE=5000H; HL= [ CNFGSF I LE] ; 

C=M(HL); HL= HL+ 1 ; B=M(HL); 

L=2; /* WRITE CALL CMINISDISIQ; 

IF (A: : 0) JZERO DISK ERROR */ 

CALL ABORTS IPL( .CNFGSNAME) ; 

END; 

1= ( A=0) ; ENTRYSBASE= ( HL= ( DE=5090H) ) ; 

REPEAT; /* STEP THRU CONFIGURATION FILE */ 

CALL SEARCHSD I RECTORY; 

IF (A=B; A::0FFH) JZERO THEN 

DO; VIRTUAL DISK ( I) EXISTS 

STACK= BC; B=0; C=(A=<<I); 

HL= C DMTSEOE] +BC ; CALL [PUT]; 

DE= STACK; HL= C DMTSBOE] +BC ; CALL C PUT] ; 

BC=3; DE= ( HL= ENTRYSBASE+BC) ; 

B=0; C=( A=<< (A=<< I) ) ; 

HL= [ DMTSKEY] +EC ; 

DO B=0 BY B=B+1 WHILE (A=B-4) JZERO; 

M( HL) = ( A= M( DE) ) ; 

DE= DE+ 1 ; HL= HL+ 1 ; 

END; 

B= 0 ; C= ( A= I ) ; 

HL= C DMTSFLAG] +BC ; 

IF ( A=M( DE) ; A::(B=’R’ )) ZERO THEN 
M( HL) =0DH 
ELSE DO; 

IF (A: : ( B= ’ P ’ ) ) ZERO THEN M(HL)=05H 
ELSE M(HL)=01H; 

END; 

END; 

DE= ( HL= ENTRYSBASE+ ( BC= 13) ) ; 

ENTRYSBASE=HL; 

UNTIL (I=(A=I+1); A:: 32) ZERO; 

/* CHECK THAT DISK 0 EXISTS */ 

HL=C DMTSFLAG] ; 

IF ( A=M( HL) Q 01) ZERO CALL ABORTS IPLC .SYSDISK) ; 

END INITIALIZE; 

MTSSIPL: 

/ * * * X * * * * x * * * * * * * # * * * * * * * * * # * X # * * * * * * * * X * * * * * X * * X 3c :* :* / 



THIS ROUTINE IS THE INITIAL ENTRY POINT INTO MTS. */ 
/* THE SYCOR 440 LOADER TRANSFERS CONTROL HERE AFTER */ 
/* THE SYSTEM OBJECT MODULE HAS BEEN LOADED. IF THE */ 
SYSTEM LOADER LOADS MTS THE LOAD MODULE IS DIS- */ 
/* PLACED BY 1200H SO THIS ROUTINE MOVES MTS TO */ 

s* ABSOLUTE LOCATION ZERO THEN TRANSFERS CONTROL TO */ 

/* THE MOVED MTSSIPL ROUTINE. DURING */ 

IPL ALL PERIPHERAL DEVICES ARE RESET, THEN MTS 
/* READS THE SYCOR DIRECTORY INTO MEMORY, AND ASKS */ 

/* THE OPERATOR AT TERMINAL 0 "WHETHER RECOVERY IS */ 

/* REOUIRED. IF THE ANSWER IS ’ Y* THEN THE PROCEDURE */ 

RECOVER IS CALLED TO READ THE FILE . MTSRCVR INTO 
/* THE SYSTEM STATE BLOCK. OTHERWISE THE PROCEDURE */ 
/* INITIALIZE IS CALLED TO BUILD AN SSB FROM INFOR- 

MAT I ON CONTAINED IN THE SYCOR DIRECTORY IMAGE AND */ 
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/* THE FILE . MTSCNFG. ONCE IPL IS COMPLETE CONTROL IS */ 

/* TRANSFERRED TO THE PROCESSOR MANAGEMENT SUBMODULE */ 

/x WHICH WILL CONTROL ALL SUBSEQUENT PROCESSING. */ 

/* CALLED BY: SYCOR SYSTEM LOADER */ 

/^^^c^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 
DECLARE (WAIT, TEST, CLEAR, SHIFT) LABEL; 

DECLARE IPLSMSG( 15) BYTE INITIAL (’RECOVERY? ( Y/N) ’ ) ; 
/* SET STACK POINTER */ 

DE = 20 ; /* INDEX TO TOP OF SYSSSTACK */ 

SP= ( HL= C SYSSSTACK] + DE) ; 

/* CLEAR PERIPHERAL INTERRUPTS */ 

OUT( 2) = ( A= 1 ) ; /* DISABLE TIMER */ 

OUT(8(5H) = ( A= 10H) ; /* CLEAR CSST INTERUPT */ 

A=IN(8AH); /x CLEAR PRINTER INTERUPT x/ 

/x IF DEBUGGER IS USED TO LOAD THE SYSTEM*/ 

/* SKIP THE MOVE, OTHERWISE RELOCATE MTS */ 

/x LOADSSWITCH EQUALS 0 FOR DISK LOAD */ 

/x AND 0FFH FOR DEBUGGER LOAD */ 

IF ( A=0FFH; A::0 /* LOADSSWITCH */ ) ZERO GOTO CLEAR; 
HL=0000H; DE= 1200H; BC=4600H; /* MTS SIZE - 4600H X/ 

SHIFT: 

M(HL)=(A=M( DE)) ; 

HL=HL+1; DE=DE+ 1 ; 

IF (BC=BC-1; A s 0 ; A::C) ! ZERO GOTO [HEX IPLSOFFSET] ; 

IF (A: : B) IZERO GOTO [HEX IPLSOFFSET]; 

/x JUMP IS MADE TO SHIFT AD DR + I200H */ 

/* WHILE MTS IS TRANSFERRED */ 

GOTO CLEAR; 

CLEAR: 

/* CLEAR STATUS LINE ON ALL TERMINALS x/ 

DO I=(A=0) BY I = ( A= I +* 1 ) WHILE ( A= I ; A::4) !ZERO; 

CALL [ CLEARSSTATUSSLINEI ; 

END; 

/* READ SYCOR DIRECTORY INTO MEMORY x/ 

CALL READSD I RECTORY; 

/* DISPLAY IPLSMSG AT TERMINAL 0 */ 

BC= 15 ; DE= . IPLSMSG; HL=07O0H; 

CALL [ MOVBUF ] ; 

/* ENABLE INTERRUPTS SO TERMINAL MODULE MAY X/ 

/x BE USED TO PROCESS REPLY TO IPLSMSG x/ 

ENABLE; 

OUT( 2) = ( A=0) ; /x RESET TIMER */ 

/* PROCESS OPERATOR’S REPLY */ 

WAIT: REPEAT; 

CALL C TERM INALS STATUS] ; 

UNTIL (A::0) !ZERO; 

CALL [ RE ADS TERM INAL] ; 

I = A; 

IF ( A: : 0DH) ZERO GOTO TEST; 

REPEAT; 

CALL [ READS TERM INAL] ; 

UNTIL (A::ODH) ZERO; 

TEST: 

IF ( A= I ; A::(B=’Y’)) ZERO 
\ ( A: : ( B=79H) ) ZERO 
THEN DO; 

A=0; CALL [ CLEARS STATUS SL I NE] ; 

CALL RECOVER; 

END 
ELSE DO; 

IF (A: : ( B= ’ N’ ) ) !ZERO 
Q (A: : ( B=6EH) ) IZERO 
THEN 

DO; E= ’ ? ’ ; 

CALL [ WR I TESTE RM INAL] ; 

GOTO WAIT; 

END 

ELSE 

DO; 

A=0 ; CALL [ CLEARSSTATUSSLINEI ; 

CALL INITIALIZE; 

END; 
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END; 

GOTO C MONITOR]; 

/* END OTSSIPL */ 



EOF 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
/* SERVICE MODULE */ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/X x/ 

/X THIS MODULE PROVIDES THE INTERFACE BETWEEN THE x/ 
/X USER AND ALL SYSTEM SERVICES. THESE SERVICES FALL */ 
/x GENERALLY INTO TWO CATEGORIES: */ 
/x x/ 
/ X (1) SYSTEM CALLS - THOSE FUNCTIONS REQUIRED TO x / 
/x ESTABLISH THE DESIRED VIRTUAL MACHINE X/ 
/x ENVIRONMENT. x / 
/x x/ 
/ x (2) SERVICE CALLS - THOSE FUNCTIONS REQUIRED TO */ 
/X ACCESS THE VIRTUAL DEVICES PROVIDED BY THE x/ 
/x VIRTUAL MACHINE ENVIRONMENT. x/ 



/X X/ 

/x SYNTACTICALLY THE TWO TYPES OF PROCEDURE CALL ARE x/ 
/x IDENTICAL, I.E. */ 
/x VALUE = MTS (FID, P ARM) . x/ 
/ x EACH CALL TAKES TWO ARGUMENTS, FID IN REGISTER C */ 
/X AND PARM IN REGISTERS DE; AND RETURNS A VALUE X/ 
/x IN THE A REGISTER. THE FORM OF THE ARGUMENTS AND */ 
/x THE SIDE EFFECTS ASSOCIATED WITH EACH DIFFERENT */ 
/x FUNCTION ARE DISCUSSED IN MORE DETAIL IN THE MTS x/ 
/x USER* S MANUAL. NOTE HOWEVER THAT THE ARGUMENT REG- x / 
/x ISTER ASSIGNMENTS CONFORM TO THE PL/M CONVENTION x/ 
/ x FOR PASSING PARAMETERS. THE FOLLOWING TABLE SUM* */ 
/X MARIZES THE ARGUMENT OPTIONS AND CORRESPONDING x/ 



/X 


RETURNED VALUES. 






X/ 


/X 










X/ 


/X 
/ X 


FID 


NAME 


PARM 


VALUE 


x / 

X/ 




SYSTEM 


r*T r £? 




/X 


X/ 




uA 1^1 




/X 


0 


ATTACH 


LIST 


ERROR 


X / 


/X 


1 


DISPLAYSMSG 


ERROR 


NONE 




/X 


2 


LOGIN 


LIST 


ERROR 


X / 


/X 


3 


PROTECT 


LIST 


ERROR 


X / 


/X 


4 


QUIT 


NONE 


NONE 


X/ 


/X 


3 


RESTRICT 


LIST 


ERROR 


X/ 


/X 


6 


SIZE 


SIZE 


ERROR 


X/ 


/X 

/X 


7 


UNPROTECT 

OTTTJTT T m? 


LIST 


ERROR 


X/ 






LALLS 






/X 


8 


TERM INALS STATUS 


NONE 


TRUE/ FALSE 


X/ 


/X 


9 


READSTERMI NAL 


NONE 


CHARACTER 


X / 


/X 


10 


WR I TESTE RM INAL 


CHARACTER 


NONE 


X/ 


/X 


1 1 


WRITESPRINTER 


CHARACTER 


ERROR 


X/ 


/X 


12 


SELECTS DRIVE 


DRIVE NR 


ERROR 


X/ 


/X 


13 


SETSDMA 


DMA ADDRESS 


ERROR 


X/ 


/ X 


14 


SETSTRACK 


TRACK NR 


ERROR 


X/ 


/ X 


13 


SETSSECTOR 


SECTOR NR 


ERROR 


X/ 


/ X 


16 


READSFLOPPY 


NONE 


ERROR 


X/ 


/X 


17 


WRITESFLOPPY 


NONE 


ERROR 


X/ 


/ X 










X/ 



/x IN THIS TABLE THE ENTRY ’ LIST* UNDER PARM INDICATES*/ 
/* THAT THE ACTUAL ARGUMENT IS THE ADDRESS OF A LIST */ 
/* OF REQUIRED PARAMETERS. WHEN * NONE* APPEARS UNDER */ 
/* THE SAME HEADING, IT MEANS THAT THE PARM ARGUMENT */ 
/* IS NOT REQUIRED. IF * NONE * APPEARS UNDER VALUE THE */ 



/X 


ERROR CODE 


RETURNED IS ALWAYS ZERO. THE ENTRY 


X/ 


/X 


•ERROR* INDICATES TEAT AN ERROR CODE IS RETURNED. 


X / 


/X 


THESE CODES 


ARE DEFINED AS FOLLOWS: 


X / 


/X 






X/ 


/X 


CODE 


ERROR 


X/ 


/X 


— 




X / 


/X 


0 


OPERATION SUCCESSFUL 


X/ 


/X 


1 


INVALID COMMAND 


X/ 


/ X 


2 


DISK NOT AVAILABLE 


X/ 


/X 


3 


DISK IN USE 


X/ 


/X 


4 


DISK NUMBER ERROR 


X/ 


/X 


5 


KEY ERROR 


X/ 


/X 


6 


DRIVE LETTER ERROR 


X/ 


/X 


7 


PRINTER NOT READY 


X/ 


/X 


8 


HARDWARE ERROR 


X/ 
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/X 


9 


TASK DELETED 


X/ 


/X 


10 


DRIVE NOT AVAILABLE 


X/ 


/X 


11 


PRINTER IN USE 


X/ 


/X 


12 


OUT OF BOUNDS 


X/ 


/X 






X/ 


/X 


THE SERVICE MODULE 


IS DIVIDED INTO THREE BASIC 


X/ 


/X 


SUBMODULES : 




X/ 



/* */ 

/* (1) USER INTERFACE */ 

/* THIS SUBMODULE CONTAINS THE ENTRY POINT INTO */ 

/* THE SERVICE MODULE FROM MCP AND USER PRO- */ 

/* GRAMS. IT IS HERE THAT THE SERVICE REQUEST */ 

/x IS INTERPRETED AND THE APPROPRIATE SERVICE */ 

/* ROUTINE CALLED FOR EXECUTION. */ 

/* x/ 

/x (2) SYSTEM CALLS x/ 

/x THIS SUBMODULE CONTAINS THE SERVICE ROUTINES x/ 

/x AND SUPPORTING PROCEDURES WHICH CREATE OR x/ 

/X MODIFY THE USER’S VIRTUAL ENVIRONMENT. x/ 

/x THESE ROUTINES ARE INVOKED BY MCP IN RESPONSE x/ 

/X TO SYSTEM COMMANDS ENTERED AT A TERMINAL. x/ 

/x THEY MAY ALSO BE ACCESSED BY USER PROGRAMS x/ 

/x DIRECTLY THROUGH THE USER INTERFACE SUBMODULE. xs 

/x x/ 

/ X C 3) SERVICE CALLS x / 

/x THIS SUBMODULE CONTAINS SERVICE ROUTINES AND x/ 

/X SUPPORTING PROCEDURES WHICH ALLOW A USER x/ 

/X PROGRAM TO ACCESS A VIRTUAL TERMINAL OR x/ 

/x VIRTUAL FLOPPY DISK. x/ 

/x x/ 



SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/xxxxxxxxxxxxxxxxxxx USER INTERFACE xxxxxxxxxxxxxxxxxxx/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/xxxxxxxxxxxxx INTERMODULE LINKAGE MACROS xxxxxxxxxxxx / 
DECLARE GLOB 1 COMMON; 

[ INT MB TB M2B3 [M2B:=0600H3 [MB:=03O0H3 CTB: = 1000H1 
[ INT S2B S3B3 [S2B:=2200H3 CS3B:=270OH] 

[MACRO MONITOR * C HEX MB +0AAB3 ’ 3 
[MACRO INDEX ’[HEX M2B + 3H3 ’ 3 
[MACRO ATTACH ’[HEX S2B + 179H3 ’ 3 
[MACRO LOGIN ’[HEX S2B + 224H3 ’ 3 
[ MACRO PROTECT ’ [ HEX S2B + 2ECH] * ] 

[MACRO QUIT ’[HEX S2B + 364H3 ’ I 
[MACRO BUMP ’[HEX S2B + 12BHI’] 

[MACRO RESTRICT ’[HEX S2B + 36EHI ’ ] 

[MACRO SIZE ’[HEX S2B + 3F0HI ’ I 
[ MACRO UNPROTECT ’ [ HEX S2B + 448H3 ’ I 
[MACRO WRITE5PR INTER ’[HEX S3B + 172HI ’ I 
[MACRO SELECTSDRIVE ’(HEX S3B + 22CH1 ’ I 
[MACRO SET3DMA ’[HEX S3B + 29 EH] ’ I 
[ MACRO SETSTRACK ’ [ HEX S3B + 2BBHI ’ 3 
[ MACRO SETSSECTOR ’ [ HEX S3B + 2D0H3 ’ 3 
[ MACRO READSFLOPPY ’ [ HEX S3B + 2EAH3 ’ 3 
[MACRO WRITESFLOPPY ’(HEX S3B + 2FEH3 ’ 3 
[ MACRO MTS » MSG ' [ HEX TB + B37H3 ’ 3 
[MACRO TERMINALS STATUS ’[HEX TB + 8D2H3 ’ ] 

[MACRO READ9TERMINAL ’[HEX TB + 8DCH3 ’ 3 
[MACRO VR I TESTE RM INAL ’[HEX TB + 93CH3 ’ 3 
[MACRO PARMO ’ GLOBK 10H) ’ 3 
[MACRO ERROR ’ GLOB 1 ( 14H) ’ 3 
(MACRO LOCK ’ GLOBK 15H) ’ 3 

(MACRO SVCSSTACKSTOP * GLOB 1< 2BH) ’ 3 SVCSSTACK + TOP 
[MACRO TASK ’ GLOBK 24 1H) ’ 3 
[MACRO TCTSSTATUS ’ GLOBK 246H) ’ 3 
[ MACRO SWAPSSTACK9 ’ GLOB 1 ( 3BFH) ’ 3 
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sxxxxxxxxx****** GENERAL PURPOSE MACROS xxxxxxxxx******/ 

[ I NT TOP] [TOP: =20] 

[MACRO INPUTSVAITING * 0FFH* ] 



DECLARATIONS xxxxxxx'xxxxxxxxxxxxx/ 

DECLARE ( MTS S EXTERNAL, MTSS INTERNAL, EXIT, 

MTS , TERMS BLOCK) LABEL ; 

DECLARE SAVE DATA (0,0,0); 



/kxxxk^kx^xxxx^kxkxxk^. ENTRY POINT *********************/ 

INTERNALSMTS: /* INTERNAL ENTRY POINT INTO SERVICE */ 

/* MODULE, I.E. ENTRY POINT FROM */ 

/* OTHER MTS ROUTINES */ 

SAVE( 2) = ( A= [ LOCK] ) ; /* SAVE LOCK VALUE x/ 

[ P ARM0 ] = ( HL= DE) ; /* SAVE PARM LIST ADDRESS */ 

SAVE=( HL=0+SP) ; /* SAVE USER SP xs 

SP= ( HL= . [ S VCSSTACKSTOP ] ) ; 

IF < A= < < C) ! CY GOTO MTS; 

A=(A=!C)+ 1 ; /* CONVERT FID TO POSITIVE NR */ 

IF (A: :3) ?CY THEN 

/* INVALID COMMAND - ERROR 1 */ 

DO; [ERROR] =(A= 1 ) ; GOTO EXIT; END; 

H=0 ; L= A; 

DO CASE HL; 

/* 0 */ DO; NOP; END; 

/* -1 */ DO; CALL [ READSTERMINAL] ; 

[ERROR] = A; 

END; 

/* -2 */ CALL [BUMP1; 

END; /* CASE */ 

GOTO EXIT; 

100H: s* ADJUST EXTERNAL ENTRY POINT LOCATION */ 

EXTERN ALSMTS : /* EXTERNAL ENTRY POINT INTO SERVICE */ 

/x MODULE, I.E. ENTRY POINT FROM */ 

/X USER PROGRAMS */ 

DISABLE; 

SAVE( 2) = ( A = [ LOCK] Q 0FEH) ; /* SAVE LOCK VALUE */ 

[ LOCK] = ( A= A \ 01); ✓* LOCK OUT SWAPPING *s 

ENABLE; 

[ P ARM0 ] = ( HL= DE) ; /* SAVE PARM LIST ADDRESS */ 

SAVE= ( HL= 0+SF) ; SAVE USER SP x/ 

SP= ( HL= . [ SVCSSTACKSTOP ] ) ; 

MTS: SYSTEM AND SERVICE ROUTINES xs 

IF ( A*C? A: : 18) !CY THEN 

/* INVALID COMMAND - ERROR 1 *✓ 

DO; [ERROR] =(A= 1) ; GOTO EXIT; END; 

[ERROR] =(A=0) ; /* INITIALIZE RETURNED ERROR CODE */ 

H= 0 ; L=C; 

DO CASE HL; 

/******** SYSTEM CALLS xxxxxxxxxxxxxxxx/ 

/x 0 *s CALL [ ATTACH] ; 

/* 1 X/ CALL [ MTSSMSG] ; 

2 x/ CALL [LOGIN] ; 

/* 3 */ CALL [ PROTECT] ; 

/* 4 CALL [QUIT]; 

/x 3 x/ CALL [RESTRICT]; 

/* 6 x/ CALL [SIZE]; 

/X 7 X/ CALL [ UNPROTECT] ; 

z^***:*:**** SERVICE CALLS xxxxxxxx^xxxxx/ 

/X 8 X/ DO; CALL [ TEPJ1 INALS STATUS ] ; 

[ ERROR] = A; 

END; 

/x 9 */ DO; CALL [ TERM INALS STATUS ] ; 

IF ( A: : [ INPUTSWAITING] ) ZERO THEN 
DO; CALL [ RE ADS TERM INAL] ; 

[ ERROR] = A; 

END 

ELSE GOTO TERMSBLOCK; 
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/* 


10 


X/ 


END; 

CALL 


[ WRITES TERM INAL! ; 


/* 


11 


X/ 


CALL 


[ WRITES PR INTER] ; 


/* 


12 


X/ 


CALL 


[SELECTSDRIVE] ; 


/* 


13 


X/ 


CALL 


[ SETS DMA3 ; 


/X 


14 


X/ 


CALL 


[ SETS TRACK! ; 


/X 


15 


X/ 


CALL 


[ SETSSECTOR] ; 


/X 


16 


X/ 


CALL 


[ READS FLOPPY] ; 


/X 


17 


X/ 


CALL 


[ WRITESFLOPPY] ; 


/X 


CASE 


X/ 





EXIT: /* COMMON EXIT POINT FOR INTERNAL AND EXTERNAL */ 

SP=(HL=SAVE) ; /* RESTORE USER SP */ 

DISABLE; 

[ LOCK] = ( A=SAVE< 2) ) ; /*• RESTORE LOCK VALUE */ 

A= [ ERROR] ; 

ENABLE; 

RETURN; 

/* END MTS */ 

TERMSBLOCK: 

/ # * * x * * * * X 5* * *: ** * X * ** ap x * * * * X *: * :* ** *: ap ap :* *: * a**;*: a* :* X * ap a* a* ap X afc* / 



/* THIS ROUTINE IS CALLED WHEN THE TASK CURRENTLY */ 
/* ALLOCATED THE CPU IS BLOCKED FOR TERMINAL 1/0 . THE */ 
/* ROUTINE STORES THE CURRENT MACHINE ENVIRONMENT IN */ 
/* THE SWAP STACK AND TRANSFERS CONTROL TO THE */ 
/* MONITOR FOR SELECTION OF THE NEXT READY TASK. */ 
/* CALLED BY: MTS */ 



/* SET BIT 5 IN TCT3STATUS */ 

DE= , [ TCTSSTATUS] ; A= [ TASK] ; CALL [ INDEX! ; 

M( HL) = ( A=M( HL) \ 20H) ; 

/* SAVE ENVIRONMENT */ 

[ SWAPSSTACK9 ] = ( HL=SAVE) ; /* ONLY USER SP NEEDED */ 

GOTO [MONITOR!; 

/* END TERMSBLOCK */ 



EOF 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/xxxxxxxxxxxxxxxxxxxx SYSTEM CALLS ********************/ 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/a*as***as:tc;***as:*aK INTERMODULE LINKAGE MACROS ************/ 
DECLARE GLOB 1 COMMON; 

[ INT TB MB M2B] [M2B:=0600H] [TB: = 1000H] CMB:=0300H] 

[ INT S3B! [ S3B: = 2700H! 

[MACRO MONITOR ’[HEX MB + 0AAH3 ’ ] 

[MACRO INDEX ’[HEX M2B + 3H! ’ ] 

[MACRO INDEX2 ’[HEX M2B + 0DH] ’ ] 

[MACRO INDEX4 ’[HEX M2B + 1QH] ’ ] 

[MACRO INDEX8 ’[HEX M2B + 24H] ’ ] 

[ MACRO GET ’ [ HEX M2B + 38H] ’ ] 

[MACRO MOVBUF ’[HEX M2B + 41H!’] 

[MACRO MINISDISK ’[HEX M2B + 54H! ’ ] 

[MACRO SIZESMSG ’[HEX TB + 864H! ’ ] 

[ MACRO STATUSSMSG ’ [ HEX TB + 88CH! ’ 1 
[MACRO CLEARSSTATUSSLINE ’[HEX TB + 827H3 ’ ] 

[ MACRO MTSSM5G ’ [ HEX TB + 837H] ’ I 
[MACRO PARM0 ’ GLOBl( 10H ) ’ 1 
[MACRO DISK ’GLOBK 12H) ’ I 
[MACRO DRIVE ’ GLOBK 13H) ’ ] 

[MACRO ERROR ’ GLOBK 14H) ’ ] 

[ MACRO MDBUF ’ GLOB 1 ( 3FH) ’ I 
[MACRO TASK ’ GLOB 1 ( 24 IH) ’ I 
[ MACRO TCTSSTATUS ’ GLOB 1 ( 246H) ’ ] 

[ MACRO TCTSDM ’ GLOB 1 ( 24AH) ’ I 
[MACRO TCTSSIZE ’ GLOBl C 26 AH) ’ ] 

[MACRO TCTSBOE ’ GLOB 1 ( 26EH) ’ I 
[MACRO TCTSEOE ’ GLOB I ( 276H) ’ I 
[ MACRO D MTS FLAG ’ GLOB I ( 27EH) ’ I 
[MACRO D MTS KEY ’ GLOB 1 ( 3 1 EH ) ’ 1 
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[MACHO VDCSDRIVE ’ GLOB1 ( 3AEH) ’ 3 
C MACRO CNFG3FILE ’GLOB1 ( 244H) ’ 3 
[ MACRO PRTSCNTRL 1 GLOB 1 ( 39 EH) * ] 

C MACRO READS BUF * [ HEX S3B + 07H3 1 3 
[MACRO WRITESBUF ’[HEX S3B + 23H3 ’ 3 

/XXXXXXXXXXXXXXX GENERAL PURPOSE MACROS ***************/ 

[MACRO WRITE 2 ' 3 

[MACRO HARDWARES ERROR ’8’ 3 

sxxxxxxxxxxxxxxxxxxxx DECLARATIONS xxxxxxxxxxxxxxxxxxxxs 

DECLARE PLIST DATA ( 0 , 0 , OFFH, OFFH, OFFH, OFFH) ; 

DECLARE DSK DATA (0) ; 

DECLARE PA DATA ( 0) ; 

/*****#****#****** UTILITY PROCEDURES xxxxxxxxxxxxxxxxx/ 



VALSDRIVE: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
sx THIS PROCEDURE VALIDATES THE DRIVE NUMBER INPUT TO */ 



sx ANY SYSTEM CALL WHICH REQUIRES THAT PARAMETER. */ 
/x INPUT: A - DRIVE NUMBER TO BE VALIDATED x/ 
/X OUTPUT: DRIVE - NUMBER OF FREE DRIVE FOUND x/ 
/x ERROR - ERROR CODE x/ 
/x CALLED BY: ATTACH x/ 



IF (A::0FFH) ZERO THEN sx NO DRIVE SPECIFIED xs 
DO; /X SCAN DRIVE MA P FOR FREE DRIVE X/ 
DECLARE LI LABEL; 

DE= . [ TCTSDM3 ; A= [ TASK3 ; CALL C INDEX83 ; 
B s 8; 

REPEAT; 

IF ( A=< M( HL) ) ! CY GOTO LI; 

HL=HL+ 1 ; 

UNTIL (B=B-1) ZERO; 

/x NO DRIVE AVAILABLE - ERROR 10 x/ 

[ ERROR3 = ( A r 10) ; RETURN; 

Li: [ DRIVE! = ( A= 8-B) ; sx FREE DRIVE FOUND x/ 
END 

ELSE IF ( A: : 8) !CY THEN 

/x DRIVE NR > 7 - ERROR 6 x/ 

DO; [ ERROR3 = < A= 6 ) ; RETURN; END; 

END VALS DRIVE; 



VALSDISK: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**/ 

/ x THIS PROCEDURE VALIDATES THE DISK NUMBER INPUT TO x/ 



/x any SYSTEM CALL WHICH REQUIRES THAT PARAMETER. x/ 
/x INPUT: A - DISK NUMBER TO BE VALIDATED xs 
s x OUTPUT: DISK - NUMBER OF FREE DISK FOUND x/ 
s x ERROR - ERROR CODE xs 
/x CALLED BY: ATTACH x/ 



/^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



IF( A: : OFFH) ZERO THEN /x NO DISK SPECIFIED x/ 

DO; /X SCAN DISK MAP FOR FREE DISK X/ 

DECLARE L2 LABEL; 

HL= . [ DMTSFLAG3 ; B= 32 ; 

REPEAT* 

IF’(A=>M(HL)) CY /x DISK AVAILABLE x/ 

Q (A=>A) ! CY S x NOT IN USE x/ 

Q (A=>A) ! CY /x NOT PROTECTED xs 

Q ( A= > A) ! CY /* NOT RESTRICTED xs 

THEN GOTO L2; 



HL= HL+ 1 ; 

UNTIL (B=B-1) ZERO; 

sx NO DISK AVAILABLE “ ERROR 2 xs 

[ ERROR! = ( A= 2 ) ; RETURN; 

L2: [DISK3=( A=32-B) ; sx FREE DISK FOUND xs 
END 

ELSE IF (A: : 32) !CY THEN 

sx DISK NR > 31 - ERROR 4 xs 
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DO; l ERROR] = ( A= 4 ) ; RETURN; END 

ELSE 

DO; /* SEE IF SPECIFIED DISK AVAILABLE */ 

DE r . C DMTSFLAG] ; A= C DISK] ; CALL C INDEX] ; 

IF ( A= > M( HL) ) !CY THEN 

DISK NOT AVAILABLE - ERROR 2 *S 
DO; [ ERROR] = ( A= 2 ) ; RETURN; END; 

IF ( A= > A) CY THEN 

/X DISK IN USE - ERROR 3 */ 

DO; [ERROR] =< A=3) ; RETURN; END; 

END; 

END VALSDISK; 

VALSKEY: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
/x THIS PROCEDURE COMPARES THE KEY INPUT AS A SYSTEM */ 
/X CALL PARAMETER WITH THAT ASSOCIATED WITH A SPEC I- */ 



/X FIED VIRTUAL DISK FILE, x/ 
/x INPUT: PARM - VARIABLE HOLDING ADDRESS OF PARM KEY x/ 
/ X DISK - VIRTUAL DISK FILE NUMBER x/ 
/x OUTPUT: ERROR - ERROR CODE x/ 
/x CALLED BY: ATTACH x/ 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX-xXxXXXXXXXXXXXXXXXX/ 

DE= . C DMTSKEY] ; A=CDISK]; CALL [ INDEX4] ; 

DE=HL; HL= [ PARM0] ; 

DO B=0 BY B= B+ 1 WHILE (A=-*; A::B) ’ZERO; 

IF (A=M(DE); A: : M( HL) ) ZERO 
\ C IF ( A: : 20H) ZERO Q ( A= M( HL) -0FFH) ZERO 
THEN CY= 1 ELSE CY=0) CY 
THEN /x CHAR MATCH x/ 

DO; 

DE= DE+ 1 ; HL=HL+I; 

END 

ELSE /x KEY ERROR - ERROR 5 x/ 

DO; C ERROR] = ( A= 5 ) ; RETURN; END; 

END; /* WHILE x/ 

/X KEYS MATCH */ 

END VALSKEY; 

CLEARS FLAG: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 



/ x THIS PROCEDURE RESETS THE IN USE BIT (BIT 1) IN x/ 
/x THE DMTSFLAG FOR A SPECIFIED VIRTUAL DISK. X/ 
/ x INPUT: B - DISK NUMBER x/ 
/x CALLED BY: ATTACH, LOGIN, CLEARS DM x/ 



/'XX-X.'X.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXZXXXXXXXXXXXXXXXX/ 

DE= . [ DMTSFLAG] ; A=B 6 1FH; CALL [INDEX]; 

MI HL) = ( A= M( HL) 3 OFDH) ; 

END CLEARSFLAG; 

CLEARS DM: PROCEDURE; 

/I*:**************************************************#**/' 

/* THIS PROCEDURE RESETS ALL ENTRIES IN THE TCTSDM */ 

ASSOCIATED WITH THE CURRENT VALUE OF TASK. */ 

CALLED BY: LOGIN, QUIT 

/JR#******#*#*********:*:*:*****#**************************/' 

DE= . t TCTSDM] ; A= C TASK] ; CALL C INDEX8] ; 

C= 8 ; 

REPEAT; 

B=M( HL) ; M( HL) = 0; 

IF ( A=< B) CY 8 ( A= < A) !CY THEN 
DO; 

STACK= HL ; 

STACK= BC ; 

CALL CLEARSFLAG; 

BC= STACK; 

HL= STACK; 

END; 

HL= HL+ 1 j 

UNTIL (C=C-1) ZERO; 

END CLEARSDM; 

/************;M::r*** SYSTEM ROUTINES *******************/ 
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BUMP : PROCEDURE ; 

/* THIS INTERNAL SYSTEM CALL DELETES THE CURRENT TASK */ 



/* FROM THE SYSTEM. */ 
/* ARGUMENTS: */ 
z'* ( 1) FID = -2 */ 
/* (2) PARM = NONE */ 
/* VALUE: NONE */ 
/* CALLED BY: INTERNALS MTS , QUIT */ 



/* WRITE MINI-DISK BUFFER IF NECESSARY */ 

CALL [ WRITESBUF] ; 

IF ( A= C ERROR] \ A) fZERO THEN 

DO; E= [ HARDWARES ERROR] ; CALL CMTSSMSG]; END; 

/* CLEAR STATUS LINE */ 

A= C TASK] ; CALL [ CLEARS STATUS® L I NE] ; 

/* CLEAR TCT */ 

CALL CLEARSDM; 

DE= . CTCTSSIZE] ; A=CTASK1; CALL [INDEX]; 

M( HL) =32 ; /* SIZE = 16K */ 

HL = BC+( DE= . C TCTSSTATUS] ) ; 

M(HL)=0; /* RESET STATUS BYTE */ 

IF ( A= < C PRTSCNTRL] ) CY THEN /* PRINTER IN USE */ 

DO; 

A=> A; B=( A=A 3 03H) ; 

IF ( A= C TASK] ; A::B) ZERO THEN 

DO; /* THIS TASK HAS PRINTER CONTROL */ 

IF ( A=< [ PRTSCNTRL] ; A=<A) CY THEN 
/* RESET PRINTER CONTROL BYTE */ 

[ PRTSCNTRL] = ( A=0) ; 

END; 

END; 

END BUMP; 

ATTACH : PROCEDURE ; 

/ ** * * SfCSfC * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / 



/* SIMULATE THE PHYSICAL OPERATION OF LOADING DISK */ 
/* < D ISK NR> INTO DRIVE <DRIVE LTR> . 

/* ARGUMENTS: */ 

/* ( 1) FID =0 */ 

/* (2) PARM = BASE ADDRESS OF PARAMETER LIST 

/* BYTE 0: DRIVE NUMBER (0-7) */ 

BYTE l: DISK NUMBER (0-31) */ 

/* BYTES 2-5: PROTECTION KEY (0-4 CHARS) */ 

/* VALUE: ERROR CODE */ 

/* CALLED BY: LOGIN, MTS */ 



BC= ( HL= C PARM0] ) ; [ DRIVE] = ( A=M( BC) ) ; 

/* VALIDATE DRIVE NR */ 

CALL VAL® DRIVE; IF ( A= [ ERROR] \ A) rZERO RETURN; 

HL= C PARM0] + 1 ; [ D ISK] = ( A= M( HL) ) ; 

/* VALIDATE DISK NR */ 

CALL VAL® DISK; IF ( A= [ ERROR] N A) ! ZERO RETURN; 

DE= .C DMT® FLAG] ; A=CDISK]; CALL [INDEX]; 

IF ( A= M( HL) 3 04H) tZERO THEN /* DISK PROTECTED */ 

DO; 

DE= . C DMTSFLAG] ; A^CDISK]; CALL [INDEX]; 

IF ( A= M( HL) 3 08H) ?ZERO THEN 
DO; /* READ ONLY DISK */ 

/* SET UP READ ONLY BIT */ 

M( HL) = ( A= M( HL) \ 02H) ; 

[ DISK3M A=[DISK] \ 40H) ; S* SET TCT®DM BIT 6 */ 

END 

ELSE 

DO; /* VALIDATE KEY */ 

[ PARM0I = ( HL= [ PARM0] + 1 , + 1 ) ; 

CALL VALSKEY; 

IF (A=[ ERROR] \ A) !ZERO RETURN; 

END; 

END; 

/* MODIFY DMTSFLAG */ 

DE= . [ DMTSFLAG] ; A=[ DISK] 3 1FH; CALL [ INDEX] ; 
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M(HL) = ( A=M(HL) \\ 02H) ; /* SET DMTSFLAG BIT 1 */ 

/* MODIFY TCT8DM */ 

DE- . C TCT$DM3 ; A= [ TASK] ; GALL C IITDEX8] ; 

DE= HL ; A« [DRIVE]; CALL [INDEX]; 

B=M( HL) ; 

M( HL) s ( A* C DISK] \ 80H) ; '* SET TCT$DM BIT 7 */ 

/* RESET OLD DISK’S IN USE BIT 
IF (A S B S 40H) ZERO CALL CLEARSFLAG; 

DISPLAY STATUS MSG */ 

B=< A*C DRIVE] ) ; C=(A=CDISK] Q 1FH) ; 

IF ( A= C DISK! 840H) TZERO THEN A=72H ELSE A= ’ 

CALL [ STATUSSMSGl ; 

END ATTACH; 

LOGIN: PROCEDURE; 

/ * * * * * * % * * * * * * * * * * * * * * * * * * * * * * * x * * # * * * * * * * * * ** * % * * * * * * * / 
/* THIS SYSTEM CALL NOTIFIES MTS THAT THE REQUESTING 
TERMINAL IS NOW ACTIVE, AND SIMULATES THE PHYSICAL 
/* COLD-START BOOTSTRAP OPERATION. THE BOOTSTRAP LOAD */ 
/* TAKES PLACE FROM VIRTUAL DRIVE A. THE VIRTUAL DISK */ 



/* ATTACHED TO THIS DRIVE MAY BE SPECIFIED IN THE 

PARAMETER LIST, OR DISK© WILL BE ASSUMHED AS THE */ 
DEFAULT. */ 

ARGUMENTS : */ 

(1) FID = 2 

/* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 

BYTE 0: DISK NUMBER (0-31) */ 

/* BYTES 1-4: PROTECTION KEY (0-4 CHARS) 

VALUE: ERROR CODE */ 



/* WRITE MINI-DISK BUFFER IF NECESSARY */ 
CALL [ WRITESBUF1 ; 

IF (A=C ERROR] N A) TZERO RETURN; 

RE- INITIALIZE TCT */ 

CALL CLEARS DM; 

PROCESS DISK PARAMETER */ 

IF ( HL= I PARM0] ; A=M(HL); A: : OFFH) TZERO THEN 
DO; /* DISK SPECIFIED */ 

BC=5 ; DE=HL; HL= . PLIST( 1 ) ; 

CALL [ MOVBUF] ; [ PARM0] = ( HL= . PL 1ST) ; 

END 

ELSE 

DO; /* ASSUME DISK 0 */ 

PLIST( 1) =( A=0) ; PL IST( 2) = ( A= ’ M’ ) ; 

PLIST( 3) = ( A= ’ T’ ) ; PLIST(4) =( A= ’S’ ) ; 
PLISTC 5) = ( A= ’ ’); 

C PARMO I = ( HL= . PL 1ST) ; 

END; 

CALL ATTACH; 

IF (A=[ ERROR] \ A) TZERO RETURN; 

B=0 ; C= ( A= I TASK] ) ; 

HL=BC+( DE= . I TCTSSTATUS] ) ; 

M( HL) = 1 ; SET BIT 0 */ 

DISPLAY SIZE MSG 

DE= . C TCTSS IZE] ; A= C TASK! ; CALL I INDEX] ; 

C Y= 0 ; A= > M( HL) ; CALL [SIZESMSG]; 

END LOGIN; 

UPDATESCNFGSFILE: PROCEDURE; 



/* THIS ROUTINE PROVIDES INDEXING INTO THE MTS */ 

/* CONFIGURATION FILE AND PERMITS MODIFICATION OF */ 
OF THE CONFIGURATION FILE WHICH IS NECESARRY */ 

/* WHEN PROTECTING, UNPROTECTING OR RESTRICTING */ 

/* USER FILES. 

/* CALLED BY: PROTECT, UNPROTECT, RESTRICT */ 



/****************************************************/ 
PA= A; CALL [ WRITESBUF] ; 

BC= ( HL= C CNFGSF I LE] ) ; 

CALL C READS BUFI ; 

DE= . C MDBUF] ; A=DSK; CALL I INDEX8] ; DE=HL; 

A=DSK; CALL C INDEX4] ; B=0; C=(A=DSK); 

HL= HL+BC ; HL= HL-K DE= 8) ; 
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STACK=HL; BC=(HL=CPARM0]) ; HL= STACK; BC=BC+1; D=0; 
REPEAT; 

A=M(BC); IF ( A: : 0FFH) ZERO THEN A=20H; 

M(HL)=A; /* CHANGE FF PARAMETER TO SPACE */ 

BC= BC+ 1 ; HL=HL+1; D=(A=D+1); 

UNTIL (A:: 4) ZERO; 

M(HL) =( A=PA) ; STORE PROTECTION ATTRIBUTE */ 

[ VDC$DRIVE3=( A=C VDCSDRIVEI \ 80H) ; 

END UPDATESCNFGSF ILE ? 

PROTECT: PROCEDURE; 

THIS SYSTEM CALL ADDS THE READ/WRITE PROTECTION */ 



/* ATTRIBUTE TO A SPECIFIED VIRTUAL DISK FILE. */ 
/* ARGUMENTS : */ 
/* ( 1) FID = 3 

/* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 
/* BYTE 0: DISK NUMBER (0-31) */ 
/* BYTES 1-4: PROTECTION KEY (0-4 CHARS) */ 
/* VALUE: ERROR CODE */ 



IF ( HL= C PARM0] ; DSK= ( A= M( HL) ) ; A:: 32) ICY THEN 

DO; /* DISK * > 31 */ 

[ ERROR] = (A=4) ; 

RETURN; 

END 

ELSE 

IF (HL=HL+1; A S M( HL) ; A: : 0FFH) ZERO THEN 
DO; /* KEY ERROR */ 

[ ERROR] = (A=5) ; 

RETURN; 

END 

ELSE 

IF (DE= . [ DMTSFLAG] ; A= DSK; CALL [ INDEX] ; 

A=M( HL) ; A= > A; A=>A; A=>A) CYTHEN 
DO; /* DISK ALREADY PROTECTED */ 

[ ERROR] =( A=5) ; RETURN ; 

END 

ELSE 

DO; 

DE S . [ DMTSKEY] ; A=DSK; CALL C INDEX4] ; 

BC=HL; HL= C P ARM0 1 + 1 ; D=0; 

REPEAT; /* UPDATE DMT6KEY 

A=M( HL) ; IF ( A: : 0FFH) ZERO THEN A=20H; 

M( BC ) = A ; BC= BC+ 1 ; HL=HL+ 1 ; D=(A=D+1); 

UNTIL (A:: 4) ZERO; 

DE= . C DMTSFLAGl ; A=DSK; CALL [ INDEX] ; 

M( HL) = ( A= M( HL) \ 04H) ; s* SET PROTECT BIT 
A= ’ P T ; CALL UPDATESCNFGSFILE; 

END; 

END PROTECT; 

QUIT: PROCEDURE; 

/ * * * *: m *: * * *: :* ^ jfc * * * * X X * * * * X *: * sfc ^ m * * * * :* * * * *: * xz X X *: / 

/* THIS SYSTEM CALL NOTIFIES MTS THAT THE REQUESTING */ 



/* TERMINAL IS NO LONGER ACTIVE. */ 
/* ARGUMENTS : */ 
/* (1) FID =4 */ 
/* (2) PARM = NONE */ 
/* VALUE: NONE */ 



/*:*:*:*:**:*::*:* **: I***: a:*#*****:#:*;*: **** ***************/' 

CALL BUMP; 

GOTO [MONITOR]; 

END QUIT; 

RESTRICT: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'XXXXX/’ 
/* THIS SYSTEM CALL ADDS THE READ RESTRICTION ATTRI- */ 
/* BUTE TO A SPECIFIED PROTECTED VIRTUAL DISK FILE. */ 



/* ARGUMENTS : *' 
/* (1) FID =5 */ 
/* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 
/* BYTE 0: DISK NUMBER (0-31) */ 
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/* BYTES 1-4: PROTECTION KEY (0-4 CHARS) */' 

/* VALUE: ERROR CODE */ 

/S*******************************;):; ft*********^********/ 

IF ( HL= C PARM0] ; DSK= ( A= M( HL) ) ; A:: 32) !CY THEN 

DO; /* DISK > 31 */ 

[ERROR] =(A=4) ; RETURN; 

END; 

IF ( DE= . [ DITTSFLAG] ; A=DSK; CALL [INDEX); 

A=M(HL); A= > A; A=>A) CY THEN 
DO; /* DISK IN USE */ 

[ERROR] =<A=3) ; RETURN; 

END; 

IF ( DE= . [ DMTSFLAG] ; A= DSK; CALL [INDEX; 

A=M( HL) ; A= > A; A=>A; A=>A) !CY THEN 
DO; /* DISK NOT PROTECTED */ 

[ ERROR) =( A=5) ; RETURN; 

END; 

DE= . [ DMTSKEY) ; A=DSK; CALL [ INDEX41 ; 

STACK= HL ; BC= ( HL= [ PARM0] ) ; BC=BC+1; HL= STACK; E=0; 
REPEAT; 

IF <A=M(BC); IF ( A: : 0FFH) ZERO THEN A=20H; 

A: : M( HL) ) ’ZERO THEN 
DO; /* KEY DOES NOT MATCH 
[ ERROR] =( A=5) ; RETURN; 

END; 

HL= HL+ 1 ; BC=BC+1; E=(A=E+1); 

UNTIL ( A: : 4) ZERO; 

/* SET RESTRICTION BIT IN D MTS FLAG */ 

DE= . [ DMTSFLAG) ; A= DSK; CALL C INDEX ; 

M( HL) = ( A= M( HL) \ 08H) ; 

A= ' R' ; CALL UPDATESCNFGSF ILE; 

END RESTRICT; 

SIZE: PROCEDURE; 

* * * * * * * * ** * ** * * *:f: * * * :*:* * **** ** * ** * * ^ z' 

/* THIS SYSTEM GALL SETS THE SIZE OF THE USER’S SWAP */ 



/* IMAGE. */ 
/* ARGUMENTS: */ 
/* ( 1> FID = 6 */ 
/* (2) PARM = REQUESTED SIZE IN KILOBYTES */ 
/* VALUE: ERROR CODE */ 



/* COMPARE REQUESTED SIZE WITH MAX SIZE */ 

IF ( A = C PARMO ] ; A::49) ! GY THEN 

/* OUT OF BOUNDS - INVALID GMD ERROR 1 */ 

DO; C ERROR] = ( A= 1 ) ; RETURN; END; 

/* COMPARE REQUESTED SIZE WITH SWAP FILE SIZE */ 

DE= . C TGTSBOE] ; A= C TASK] ; GALL C INDEX2] ; 

CALL CGET]; B=0; C= ( A=< < C PARMO] ) ; 

HL=BC+DE; STACK 3 HL; /* SAVE SUM */ 

DE= . C TCTSEOE] ; A= [ TASK] ; CALL C INDEX2J ; 

CALL CGET]; BC=BC+1; 

DE= STACK; /* RESTORE SUM */ 

A=C-E; A= B — D ; 

IF MINUS THEN 

/* OUT OF BOUNDS - INVALID CMD ERROR I */ 

DO; [ ERROR] = ( A= I ) ; RETURN; END; 

/* DISPLAY SIZE MSG */ 

A=C PARMO]; CALL CSIZESMSG]; 

/* UPDATE TCT */ 

DE= . CTCTSSIZE] ; A= C TASK] ; CALL [INDEX]; 

M(HL) = ( A=<<[ PARMO]) ; 

END SIZE; 

UNPROTECT: PROCEDURE; 

/* THIS SYSTEM CALL DELETES THE READ RESTRICTION AND */ 
/* READ/ TO I TE PROTECTION ATTRIBUTES FROM A SPECIFIED */ 



/* VIRTUAL DISK FILE. 

/* ARGUMENTS : */ 

/* (I) F ID = 7 

/* (2) PARM = BASE ADDRESS OF PARAMETER LIST */ 

/* BYTE 0: DISK NUMBER (0-31) 



138 



/* BYTES 1-4: PROTECTION KEY (0-4 CHARS) 

/* VALUE: ERROR CODE */ 

/ * # * * # # # * * * * * * *: ** * * * # * * # * * # * * * * # # # * * # ** # * * * * # # * / 

IF ( HL= [ PARM0] ; DSK= ( A- M( HL) ) ; A::32) !CY THEN 

DO; /* DISK * > 31 */ 

[ERROR] =(A=4) ; 

RETURN; 

END 

ELSE 

IF ( HL- HL+ 1 ; A=M(HL); A: : 0FFH) ZERO THEN 
DO; KEY ERROR 

[ ERROR] = (A=5) ; 

RETURN; 

END 

ELSE 

DO; /* CHECK IF D MTS KEY MATCHES KEY */ 

DE= A DOTS KEY] ; A= DSK; CALL [ INDEX4] ; 

STACK 3 HL ; BC= ( HL= [ PARM0] ) ; BC=8C+1; HL= STACK; E=0 
REPEAT; 

IF (A=M(BC); IF ( A: : 0FFH) ZERO THEN A=20H; 

A: : M( HL) ) !ZERO THEN 
DO; /* D MTS KEY NOT = KEY 
r ERROR] = ( A= 5 ) ; RETURN; 

END; 

HL S HL+ I ; BC= BC+ 1 ; E=(A=E+1); 

UNTIL (A:: 4) ZERO; 

END; 

SET D MTS KEY = 20H, 20H, 20H, 20H 
DE= . C D MTS KEY] ; A=DSK; CALL C INDEX4] ; E=0; 

REPEAT; 

M(HL)=( A=20H) ; HL= HL+ 1 ; E=(A=E+1); 

UNTIL (A:: 4) ZERO; 

DE= . C DMTSFLAG] ; A= DSK; CALL C INDEX] ; 

/* RESET BIT 3 AND 4 OF DMTSFLAG */ 

M( HL) 3 ( A= M( HL) & 03H) ; 

A= ’ ’ ; CALL UPDATESCNFGSF ILE ; 

END UNPROTECT; 



EOF 

/xxxxxxzixxxxxxxxxxxx SERVICE CALLS ********************/ 

/****#**************************^tf ********************/ 



/************* INTERMODULE LINKAGE MACROS ************/ 



DECLARE GLOB1 COMMON; 

C INT M2B] [M2B:=0600H] 

[MACRO INDEX ’[HEX M2B + 3H] ’ ] 

INDEX2 ’[HEX M2B + ODH] ’ ] 

INDEX8 ’[HEX M2B + 24H] ' ] 

GET ’ [ HEX M2B + 38H] ’ ] 

MOVBUF ’ [ HEX M2B + 4 1H] ’ ] 
MINISDISK ’[HEX M2B + 54H] ’ ] 
READSPRTSBUF ’ [ HEX M2B + 9 EH] ’ ] 
PRTSSTAT ’GLOB KO)’] 

BUFSPTR ’ GLOB 1 ( 1) ’ ] 

PARM0 ’ GLOB1 ( 10H) ’ ] 

PARM1 ’GLOBl(llH)’] 

DISK ’ GLOB 1 ( 12H) ’ ] 

DRIVE ’ GLOB1 ( 13H) ’ ] 

ERROR ’ GLOB1 ( 14H) ’ ] 

MDBUF ’GLOBK 3FH) ’ ] 

MDSAD0 ’ GLOB 1 ( 23FH) ’ ] 

MDSAD 1 ’ GLOB 1 ( 240H) ’ ] 



[MACRO 
[MACRO 
[MACRO 
[ MACRO 
[MACRO 
[MACRO 
[MACRO 
[ MACRO 
[ MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 



TASK ’ GLOB 1 ( 24 1H) ’ 3 
TCTSDM ’ GLOB 1 ( 2 4 AH) ’ ] 
DMTSBOE ’ GLOB 1 ( 29EH) * ] 
DMTSEOE ’ GLOB 1 ( 2DEH) ’ ] 
PRT3B0E ’ GLOBK 39FH) ’ ] 
PRTSEOE ’ GLOB1 ( 3A1H) ’ ] 
P RTS SEC ’ GLOB 1 ( 3A3H) ’ ] 
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[MACRO VDCSDRI VE ’ GLOB 1 ( 3 AEH) ’ ] 

[ MACRO VDCSBOE * GLOB1 ( 3AFH) ’ ] 
[MACRO VDCSEOE0 ’ GL0B1 ( 3B1H) * 3 
[ MACRO VDCSEOE 1 ’ GLOB 1 ( 3B2H) ’ 3 
[ MACRO VDCSSECTOR 1 GLOB 1 ( 3B3H) ’ ] 
[ MACRO VDCSTRACK * GLOB 1 ( 3B4H) ’ ] 
[MACRO VDCSDMA ’ GLOB 1 ( 3B5H) * ] 
[MACRO PRTSCNTRL ’ GLOB 1 ( 39 EH) ’ 3 



/*************** GENERAL PURPOSE MACROS ***************/ 

[ MACRO READ ’ 1 ’ 3 
[MACRO WRITE *2’ 3 
[ MACRO CNTRLSZ ’lAH’ 3 
[MACRO PRTSRDY ’ OBOH’ 3 
[MACRO CNTRLSR ’ 12H’ 3 



/***************** MODULE DECLARATION ************ *******/' 
DECLARE CHAR DATA (0); 



/***************** UTILITY PROCEDURES *****************/ 



READS BUF : PROCEDURE ; 

/I**;*:****:*:*:****;**:******;**:*::***:*:*:*:*:********:*;*::*;###*;**#**::**;*:/ 

/* THIS PROCEDURE READS A SPECIFIED MINI-DISK SECTOR */ 



/* INTO MDBUF AND UPDATES MDSAD . */ 
/* INPUT: BC - MINI-DISK SECTOR NUMBER */ 
/* OUTPUT: ERROR - ERROR CODE */ 
/* CALLED BY: MAP , UPDATESCNFGSF ILE 



/******************************;»:*;£****:#:****************/ 
DE= . [ MDBUF 3 ; L= [ READ! ; CALL [ MINISDISK3 ; 

IF (A: : 0) !ZERO THEN 

/* HARDWARE ERROR - ERROR 8 */ 

DO; [ ERR0R3 = ( A= 8) ; RETURN; END; 

[ MDSAD03 = ( HL= BC) ; 

END READS BUF; 

WRITES BUF : PROCEDURE; 

/******************************************************/ 



/* THIS PROCEDURE CHECKS THE MODIFICATION BIT IN */ 
/* VDCSDRIVE TO DETERMINE IF THE CONTENTS OF MDBUF */ 
/x HAVE BEEN ALTERED. IF SO, THE BUFFER IS WRITTEN TO x/ 
/* THE MINI-DISK AND THE MOD BIT IS RESET. */ 
/* CALLED BY: BUMP, MAP, LOGIN, UPDATESCNFGSF I LE , X/ 
/x SELECTSDRIVE */ 



/**************;*:*******:*: I************************:*:*:#;*:*:**/ 

IF (A=< [VDCSDRI VE3 ) TCY RETURN; 

BC S ( HL= [ MDSAD03 ) ; DE= . [ MDBUF3 ; 

L= C WRITE3 ; CALL [ MINISDISK3 ; 

IF ( A: :0> !ZERO THEN 

/* HARDWARE ERROR - ERROR 8 X/ 

DO; [ ERROR! = C A=8) ; RETURN; END; 

[ VDCSDRI VE3 = ( A= [ VDCSDRI VE3 Q ?FH) ; 

END WRITES BUF; 

MAP: PROCEDURE; 

/******************************************************/ 
/* THIS PROCEDURE CALCULATES THE RELATIVE OFFSET OF A X/ 
/x SPECIFIED VIRTUAL FLOPPY DISK SECTOR IN THE MINI- x/ 
/x DISK FILE AND THE BASE ADDRESS OF THAT SECTOR IN */ 
/* THE MINI-DISK BUFFER AFTER THE FILE IS READ. THEN x/ 
/x IT CALCULATES THE ACTUAL MIN I -DISK SECTOR NUMBER x/ 
/X CONTAINING THE ADDRESSED FLOPPY DISK SECTOR, AND */ 
/* COMPARES IT WITH THE CURRENT CONTENTS OF MDBUF. IF */ 



/x THE TWO ARE NOT EQUAL, THE OLD BUFFER IS WRITTEN */ 
/* TO THE MINI-DISK AND THE NEWLY CALCULATED SECTOR x/ 
/ x NUMBER READ IN TO REFILL THE BUFFER. A COMPARISON */ 
/X IS ALSO MADE BETWEEN THE CALCULATED MINI-DISK */ 
/* SECTOR NUMBER AND THE FILE’S EOE VALUE TO ENSURE */ 
/* THAT THE SPECIFIED VIRTUAL DISK SECTOR ADDRESS IS */ 
/* WITHIN THE BOUNDS OF THE FILE. */ 
/* INPUT: VDCSTRACK - FLOPPY DISK TRACK NUMBER */ 
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/* VDCtS ECTOR - FLOPPY DISK SECTOR NUMBER *s 
/x OUTPUT: BC = 128 = FLOPPY DISK SECTOR SIZE */ 
/* HL = BASE ADDRESS OF FLOPPY DISK SECTOR x/ 
/x IN BUFFER 

/x CALLED BY: READSFLOPPY, WRITESFLOPPY */ 



/XZiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

DECLARE BUFAD DATA (O,0); 

DECLARE SEC NR DATA (0,0) ; 

D= ( A= C VDCSTRACK3 ) ; 

E= ( A= C VDCSSECTOR1 ) ; 

/* MULTIPLY TRACK # BY 26 ; ADD SECTOR *; SUBTRACT 1 */ 

B=0 ; CY=0 ; 

A=< D; L= A; /* 2 * TRACK; SAVE IN L REG */ 

CY=0; A= < A ; ✓* 4 * TRACK 

IF CY THEN B= 1 ; /* SAVE HIGH ORDER BITS IN B */ 

A= A+L; C= A; A=L; /* SAVE 2 * TRACK IN ACCUM. */ 

HL= 0 ; HL= HL+BC ; HL= HL+BC ; HL= HL+BC; HL=HL+BC; 

/* HL NOV CONTAINS 24 * THE TRACK * */ 

B=0; C“ A; HL= HL+BC ; /* HL CONTAINS 26 * TRACK * */ 

C=E; HL= HL+BC; HL= HL- 1 ; /* SECTOR * ADDED ON AND SUB 1 */ 
/* DIVIDE CONTENTS OF HL BY 4 */ 

DE= HL ; sx SAVE 26 * TRACK + SECTOR * - 1 
CY= 0 ; D= ( A= > D) ; E=(A=>E); 

CY= 0 ; D= < A= > D) ; A= > E ; 

B=D; C= A; /* BC HAS (26 * SECTOR * -1) / 4 */ 

/x COMPUTE BUFFER OFFSET */ 

IF <A=C VDCSTRACK] ; A 3 A Q 01H) ZERO THEN 
A= C VDCSSECTORJ /* TRACK IS EVEN */ 

ELSE 

A=t VDCSSECTORJ , +1,+1; /* TRACK IS ODD */ 

TEST: 

IF (A: : 3) T CY THEN 
DO; 

A= A-4; 

GOTO TEST; 

END; 

L= A- 1 ; H= 0 ; 

DO CASE HL; 

DE-0 ; 

DE- 128; 

DE=256; 

DE=384 ; 

END; 



/X DE = RELATIVE BUFFER ADDRESS X/ 

BUFAD 3 ( HL= . [ MDBUF J , +DE) ; 

/x CALCULATE AND SAVE NEW MINI-DISK SECTOR NR XS 
SECNR=(HL=C VDCSBOEJ + BC) ; 

/x COMPARE NEW SECTOR NR WITH VDCSEOE X/ 

A=C VDCSEOE01-L; A 3 C VDC3E0E 1 1 — H; 

IF MINUS THEN 

/x OUT OF BOUNDS - ERROR 12 x/ 

DO; [ERROR] 3 (A 3 12) ; RETURN; END; 

/x COMPARE NEW SECTOR NR WITH MDSAD x/ 

IF ( A 3 C MDSAD03 ; A::L) TZERO THEN 
CY=0 

ELSE IF ( A= C MDSAD 1 3 ; A: : H) TZERO THEN 
CY 3 0 

ELSE CY 3 1 ; 

/x WRITE OLD SECTOR AND READ NEW IF NECESSARY xs 
IF ! CY THEN 

DO; /x NOT EQUAL x/ 

CALL WRITESBUF; 

IF (A 3 [ERROR] \ A) !ZERO RETURN; 

BC 3 ( HL= SECNR) ; CALL READSBUF ; 

IF (A 3 [ERROR] \ A) TZERO RETURN; 

END; 

/x SET UP REGISTERS FOR RETURN x/ 

BC 3 128; DE= ( HL= BUFAD) ; 

END MAP; 

WRITESPRTSBUF : PROCEDURE ; 

/XKXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
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/* THIS ROUTINE IS GALLED BY WRITESPRI NTER WHEN THE */ 
/* PRINT BUFFER LOCATED BETWEEN 100 - 300H IN MEMORY */ 



/* IS FULL OR WHEN A CONTROL Z (EOF INDICATOR) HAS */ 
/* BEEN WRITTEN IN TO THE BUFFER. IN BOTH CASES THE */ 
/* CONTENTS OF THE BUFFER IS WRITTEN ONTO THE MINI- */ 
/* DISK IN MTSPRT. */ 
/* CALLED BY: WRITESPRINTER */ 



HL= C PRTSSECI ; BC= HL ; 

DE- 100H; L= C WRITE] ; /* SET UP FOR CALL TO MINIDISK */ 

CALL C MIN ISDISK3 ; 

IF( A: :0) !ZERO THEN 
DO; 

C ERROR] = ( A= 8) ; 

RETURN; 

END; 

HL= C PRTSE0E1 ; 

IF (A=H; A::B) CY Q ( A=L; A::C) CY THEN 
DO; /* EXCEEDED EOE OF ITTSSPRTSF I LE 
[ ERROR] = (A= 12) ; 

END 

ELSE 

DO; 

BC= BC+ 1 ; 

C PRTSSEC1 = ( HL=BC) ; 

/* PRT3SEC INCREMENTED *s 

END; 

END WRITESPRTSBUF ; 

SERVICE ROUTINES 
WRITESPRINTER: PROCEDURE; 

/ :* * * * * * * * * * 5* * * * * * * * * * Jfc * * * * * * * * * * * * * * * * * * 5* * * * *: * :* * * * * * * * / 

THIS SERVICE CALL IS MADE TO WRITE CHARACTERS INTO */ 



/* THE PRINTER BUFFER WHICH IS LOCATED BETWEEN 100 - */ 
/* 300H IN MEMORY. */ 
/* ARGUMENTS : */ 
/* ( 1) FID =11 */ 
/* (2) PARM = ASCII CHARACTER */ 
/* VALUE: ERROR CODE */ 



/xyzXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXSt:/ 

CHAR= ( A=E) ; /* SAVE CHARACTER */ 

IF ( A= [ PRTSCNTRLl ; A::0) ZERO THEN 
DO; /* PRINTER NOT IN USE */ 

IF ( CPRT$STAT]=( A= IN(8AH) ) ; As : C PRTSRDY] ) !ZERO THEN 
DO; 

[ERROR] =(A=7) ; 

RETURN; 

END; 

/* SET PRINTER IN USE BIT */ 

[ PRTSCNTRL] = ( A= [ TASK] \ 80H) ; 

[ PRTSSEC] = ( HL= C PRTSBOE] ) ; 

C BUFfcPTR] = ( HL= 100H) ; 

END 

ELSE 

DO; /* CHECK IF CURRENT TASK OWNS PRINTER 

B= ( A= A 3 3); /* B = TASK WHICH HAS PRINTER */ 

IF ( A= t TASK! ; A::B) !ZERO THEN 

DO; /* TASK DOES NOT OWN PRINTER */ 

[ ERROR] = ( A= 1 1 ) ; 

RETURN; 

END 

ELSE 

IF ( A= C PRT$CNTRL] ; A=<A; A=<A) CY THEN 
DO; /* PRINTER IS PRINTING A FILE */ 

[ ERROR] = ( A= 1 1 ) ; 

RETURN; 

END; 

END; 

IF (A=CHAR; A: : C CNTRLSZl ) TZERO 3 ( A: : [ CNTRLSR] ) f ZERO THEN 
DO; /* FILL BUFFER */ 

HL= [ BUFSPTR] ; 

IF ( A=3 ; A::H) ZERO Q (A=0; A::L) ZERO THEN 
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DO; /* BUFFER FULL - WRITE TO DISK xs 
CALL WRITESPRTSBUF; 

C BUFSPTR] = ( HL= 100K) ; 

END; 

HL= C BUFSPTR] ; 

M( HL) = ( A=CHAR) ; 

[ BUFSPTR] = < HL= [ BUFSPTR] , +1); 

END 

ELSE 

DO; sx END OF FILE CONDITION, SET UP FOR PRINTING */ 
IF (A: : [ CNTRLSZ] ) ZERO THEN 
DO; EOF xs 

HL= C BUFSPTR] ; 

M( HL) = ( A=CHAR) ; 

CALL WRITESPRTSBUF; 

END; 

C PRTSSEC] = ( HL= [ PRTSBOE] ) ; 

[ BUFSPTR] =(HL= 1O0H) ; 

CALL C READS P RTS BUF] ; 

DISABLE; 

C PRTSCNTRL] = ( A= C PRTSCNTRU \ 40H) ; 
sx START PRINTING */ 

OUT( BAH) = ( A= 0) ; 

ENABLE; 

END; 

END WRITESPRINTER; 

SELECTSDRIVE : PROCEDURE ; 

SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
sx THIS SERVICE CALL SELECTS THE VIRTUAL FLOPPY DISK xs 



sx DRIVE TO BE USED FOR SUBSEQUENT FLOPPY DISK */ 

ACCESSES . */ 

/* ARGUMENTS s */ 

sx ( 1) F ID = 12 */ 

/* (2) PARM = DRIVE NUMBER (0-7) */ 

sx VALUE: ERROR CODE xs 



SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
C DRIVE] =( A= C PARM0] ) ; 

/x VALIDATE DRIVE NUMBER x/ 

IF (A: : 8) !CY THEN 

sx DRIVE NR > 7 - ERROR 6 xs 
DO; [ ERROR] r ( A- 6 ) ; RETURN; END; 

/x VALIDATE THAT DRIVE IN USE x/ 

DE= . C TCT3DM] ; A= C TASK] ; CALL C INDEX8] ; 

DE=HL; A= C DRIVE] ; CALL [INDEX]; 

IF ( A=< M( HL) ) !CY THEN 

/x DRIVE NOT AVAIL - ERROR 10 x/ 

DO; [ERROR] =(A= 10) ; RETURN; END; 

STACK=HL; 

CALL WRITES BUF ; 

HL- STACK; 

/x UPDATE VDC BLOCK x/ 

[ DISK] = ( A=M( HL) 8 1FH) ; 

IF (A=M(HL) Q 40H) TZERO THEN sx READ ONLY xs 
[ DRIVE] = < A= C DRIVE] \ 40H) ; sx SET BIT 6 xs 
DE= . C DMTSBOE] ; A* [DISK]; CALL [ INDEX2] ; 

CALL EGET]; [ VDCSBOE] = ( HL= BC) ; 

DE= . C DMTSEOE] ; A* [DISK]? CALL [ INDEX2] ; 

CALL [GET]; [ VDCSEOE0] = ( HL= BC) ; 

[ VDCSDRI VE] = ( A= C DRIVE] ) ; 

END SELECTSDRIVE; 

SETS DMA: PROCEDURE; 

sxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 
SX THIS SERVICE CALL SETS THE ADDRESS OF THE 128 BYTE xs 
sx DMA BUFFER TO BE USED IN SUBSEQUENT VIRTUAL FLOPPY xs 



SX DISK ACCESSES « */ 
sx ARGUMENTS : xs 
sx ( 1) FID - 13 xs 
sx (2) PARM = DMA ADDRESS xs 
sx VALUE: ERROR CODE xs 



sxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 
A- C PARM0] -0 ; A= C PARM1 ] — 40H; 
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IF MINUS THEN 

/* OUT OF BOUNDS - ERROR 12 
DO; C ERROR] = ( A= 12) ; RETURN; END; 

[ VDCSDMA] = C HL= C PARM01 ) ; 

END SETS DMA; 

SETSTRACK: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
/x THIS SERVICE CALL SETS THE TRACK NUMBER TO BE USED */ 



/* IN SUBSEQUENT VIRTUAL FLOPPY DISK ACCESSES. */ 
/* ARGUMENTS : */ 
/x Cl) FID= 14 */ 
/* (2) PARM = TRACK NUMBER x/' 
/* VALUE: NONE */ 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
A= [ PARM0] ; 

IF (A: : 77) !CY THEN 

/* OUT OF BOUNDS - ERROR 12 */ 

DO; C ERROR] = ( A= 12) ; RETURN; END; 

C VDCSTRACK] = A; 

END SETSTRACK; 

SETSSECTOR: PROCEDURE; 

/ X X X X X X X X X X X X X X X XX X X X X X X XX X X X X X X XXH XX X X X X X XX X X XX X X X X XXX / 



/* THIS SERVICE CALL SETS THE SECTOR NUMBER TO BE x/ 
/x USED IN SUBSEQUENT VIRTUAL FLOPPY DISK ACCESSES. x/ 
/ x ARGUMENTS: */ 
/x ( l) FID = 15 x/ 
/x (2) PARM = SECTOR NUMBER (1-26) x/ 
/ x VALUE: ERROR CODE x/ 



/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

A= C PARMO ] ; 

IF ( A: : 27) ICY \ (A::0) ZERO THEN 
/ X OUT OF BOUNDS - ERROR 12 */ 

DO; C ERROR] =(A= 12) ; RETURN; END; 

C VDCSSECTOR] = A; 

END SETSSECTOR; 

READSFLOPP Y : PROCEDURE ; 

S X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X / 



/x THIS SERICE CALL SIMULATES READING FROM A FLOPPY x/ 
/x DISK. THE VIRTUAL DISK SECTOR AND TRACK SPECIFIED x/ 
/x IN THE VDC BLOCK IS READ FROM THE SPECIFIED */ 
/x VIRTUAL DRIVE INTO A 128 BYTE BUFFER IN THE USER’S x/ 
/x SWAP AREA. x/ 
/ x ARGUMENTS : x/ 
/x (l) FID = 16 x/ 
/x (2) PARM = NONE x/ 
/ x DRIVE* SECTOR, TRACK, AND DMA ADDRESS MUST xs 
/X HAVE BEEN PREVIOUSLY SET BY CALLS TO THE x / 
/X APPROPRIATE PROCEDURES. 

/x VALUE: ERROR CODE X/ 



/■^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^xxxxx/ 
CALL MAP; 

IF (A=t ERROR] N A) ’ZERO RETURN; 

DE=HL; HL= [ VDCSDMA] ; CALL [MOVBUF]; 

END READSFLOPPY; 

WRI TESFLOPP Y: PROCEDURE ; 



✓ x THIS SERVICE CALL SIMULATES WRITING TO A FLOPPY x/ 
/x DISK. A 128 BYTE BUFFER IN THE USER SWAP AREA IS x/ 
/x WRITTEN TO THE VIRTUAL TRACK, SECTOR, AND DRIVE *✓ 
/* SPECIFIED IN THE VDC BLOCK. */ 
/ x ARGUMENTS: x/ 
/ x (l) FID = 17 x/ 
/x (2) PARM = NONE x/ 
/x DRIVE, SECTOR, TRACK, AND DMA ADDRESS MUST x/ 
/x HAVE BEEN PREVIOUSLY SPECIFIED BY CALLS TO x/ 
/ x THE APPROPRIATE PROCEDURES. x/ 
/* VALUE: ERROR CODE */ 



IF ( A=C VDC3DRIVE] 0 40H) !ZERO THEN READ ONLY DISK */ 
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DO; 

C ERROfU s ( A= 2) ; RETURN; 

END; 

CALL MAP; 

IF <A=C ERROR] N A) TZERO RETURN; 

STACK= HL ; DE= ( HL= [ VDCSDMA] ) ; 

HL- STACK; CALL [ MOVBUF] ; 

L VDCSDRI VE1 = ( A= [ VDCSDRI VE3 \ 80H) ; /* SET BIT 7 */ 

END VRITESFLOPPY; 



EOF 
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/************ TERMINAL INTERFACE MODULE xxxxxxxxxxx/ 
/'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/' 



/x x/ 
/X TERMINAL INTERFACE MODULE PROVIDES THE MTS */ 
/x INTERFACE VI TH THE FOUR DISPLAY TERMINALS */ 
/x ATTACHED TO THE SYCOR 440 SYSTEM. THE MODULE IS */ 
/* SEPARATED INTO FIVE BASIC SUBMODULES. EACH */ 
/* SUBMODULE CONTAINS THE MACROS NECESSARY FOR */ 
/* LINKING VITHIN THE TERMINAL MODULE AND FOR X/ 
/X EXTERNAL MTS LINKAGE. */ 



/x 

/x 

/x 

/x 

/X 
/X 
/X 
/X 
/X 
/X 
/X 
/ X 
/ X 
/X 
/X 
/X 
/ X 
/X 
/ X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/ X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/X 
/ X 
/X 
/X 



'fcS 

(1) DATA DECLARATIONS */ 

THIS SUBMODULE PROVIDES ALL DECLARATIONS OF */ 

THE DATA STRUCTURES UTILIZED BY THE TERMINAL*/" 
MODULE. */ 

(2) UTILITY PROCEDURES */ 

THIS SUBMODULE CONTAINS THE BASIC UTILITY */ 

PROCEDURES WHICH PROVIDE COMMON REGISTER */ 

MANIPULATION AND PROCESSING REQUIRED BY */ 

MANY PROCEDURES THROUGHOUT THE REMAINDER */ 

OF THE TERMINAL INTERFACE MODULE. */ 

* C0MPARE3PTRS * GETS INDEX */ 

* GETSVALUE * STORESVALUE */ 

* CONVERTSNUMBRSTOSASC 1 1 */ 

* MOVESBYTES * SWAPSCURSOR */ 

(3) TERMINAL INTERFACE PRIMITIVES */ 

THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*/ 
PROVIDE THE BASIC TERMINAL INTERFACE */ 

FUNCTIONS. */ 

* BLANKSDISPLAY * GETSD I SPLAYS ADDR */ 

* CHECKSCURSOR * GETSTERMSSTATUS */ 

* SCROLLSDISPLAY * SENDSBEEP */ 

* SENDSCLICK * UPDATESCURSOR */ 

* GETSSTATUSSADDR */ 

(4) KEY PROCESSING PROCEDURES */ 



THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*/ 
PROVIDE THE BASIC TERMINAL INPUT PROCESSING.*/ 



THEY ARE CALLED TO PROCESS EACH KEY ENTERED */ 
AT A TERMINAL. THEIR FUNCTIONS INCLUDE: */ 

CHECKING FOR AND CONVERTING LOWER TO UPPER */ 
CASE LETTERS IF REQUIRED; CHECKING FOR ANY */ 
KEY COMMANDS (WHICH INCLUDES ALL LINE */ 

EDITING); AND IF NOT A KEY COMMAND, */ 

DISPLAYING THE INPUT CHAR AT THE TERMINAL. */ 

* KEYS COMMAND * TERMS INPUTSCNTL */ 

(5) TERMINAL INTERFACE SYSTEM FUNCTIONS */ 

THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*/ 
PROVIDE THE PROCESSING REQUIRED TO INTERFACE*/ 
THE TERMINAL WITH THE REST OF THE MTS */ 

MODULES. IT PROVIDES READING AND WRITING */ 

OF CHARACTERS FROM/TO THE TERMINALS; */ 

TERMINAL STATUS INFORMATION (E.G. WHETHER */ 

THERE’S INPUT AVAILABLE OR NOT); AND DISPLAY*/ 
OF STATUS AND MTS MESSAGES ON THE TERMINAL */ 
STATUS LINE. */ 

* BL I NKSCURSORS * CLEARSSTATUSSL INE */ 

* TERM I NALS STATUS * READSTERMI NAL */ 

* WRITE® TERM INAL * STATUS* MSG */ 

* MTSSMSG * SIZESMSG */ 



/****************************************************/ 



/'**:f:;f:;t::*::(C*:f::M:*************************************** :,::,:/ 
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/xxxxxxxxxxxx TERMINAL DISPLAY DESIGN 



/* */ 

sx xs 

sx GENERAL FORMAT OF EACH TERMINAL DISPLAY */ 

sx xs 

sx xs 

sx */ 

sx 10 STATUS LINE 63 1 xs 

SX */ 

SX */ 

/* 10 D 63 1 */ 

/* %/ 

sx 164 I 127! xs 

SX 

SX 1128 B S 19 1 ! */ 

sx 

/* I 192 U P 255 I */ 

/* */ 

/* 1256 F L 3191 */ 

/* */ 

SX 1320 F A 383! */ 

sx xs 

sx ! 384 E Y 447! */ 

/* */ 

sx ! 448 R 511! */ 

/* */ 

sx xs 

SX XS 

sx STATUS LINE */ 

SX */ 

sx 10 VFD 39140 MS 47 ! 48 MSG 63! */ 

sx */ 

sx WHERE */ 

/* VFD - VIRTUAL FLOPPY DISK STATUS DISPLAY; */ 

/* CONTAINS THE INFORMATION ASSOCIATED */ 

sx WITH THE CURRENT TERMINAL USER’S */ 

/* VIRTUAL FLOPPY DISK DRIVE AND DISK */ 

/* NUMBER ASSIGNMENTS. (SEE STATUSSMSG */ 

sx PROC FOR DETAILS) */ 

/* MS - DISPLAY OF THE MEMORY SIZE THE USER */ 

sx HAS REQUESTED. (SEE SIZESMSG PROC) */ 

/* MSG - DISPLAY AREA FOR MTS MESSAGES WHICH */ 

/* ARE DISPLAYED IN RESPONSE TO A */ 

/X SYSTEM OR SERVICE CALL TO MTS. X/ 

/x (SEE MTSSMSG PROC) */ 

/x X/ 

SX X S 

/X DISPLAY BUFFER */ 

sx X/ 

/x X/ 



/x THE DISPLAY BUFFER IS VIEWED AS A SINGLE X/ 
/x BUFFER FROM 0 TO 512 BYTES IN LENGTH. THERE ARE xs 
/x FOUR DISPLAY BUFFER POINTERS WHICH PROVIDE THE x/ 
sx CONTROL OF INPUT FROM AND OUTPUT TO THE TERMINAL xs 
/X DISPLAY. THESE POINTERS ARE: CURRENTSLINE; xs 
sx CURSOR; NEXTSCHAR; AND ENDS I BUFF. xs 
sx EACH POINTER UTILIZES TWO BYTES OF STORAGE TO XS 
sx ACCOMMODATE A RANGE IN VALUE FROM 0 TO 512. xs 
sx IN ADDITION TO THESE POINTERS, THERE IS A xs 
sx TERMINAL STATUS BYTE, CALLED TERMS STATUS , XS 
sx ASSOCIATED WITH EACH TERMINAL. IT IS SET TO xs 
SX ONE OF THREE VALUES: INPUTSWAITING; xs 
sx MTS SCMDS READY; I BUFFS EMPTY. THESE ARE THE xs 
sx PRIMARY DATA STRUCTURES PROVIDING TERMINAL I/O xs 
sx CONTROL. xs 
sx xs 
sx THE PRIMARY SYCOR HARDWARE CHARACTERISTIC WHICH xs 
sx AFFECTED THE MTS TERMINAL INTERFACE WAS THE xs 
sx RELATIVELY SLOW MINI-DISK ACCESS TIMES. THIS HAS*/ 
sx A MAJOR IMPACT WHEN TRYING TO DESIGN AN xs 
SX INTERACTIVE TIMES HARED SYSTEM. IN ORDER TO */ 
sx PROVIDE REASONABLE INTERACTIVE RESPONSE TIMES xs 
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/* TO USER ACTIONS, THE TERMINAL INTERFACE */ 

/* MODULE PROVIDES ALL LINE EDITING FEATURES FOR */ 
/* THE USER PRIOR TO TRANSFERING ANY DATA TO THE */ 
/* USER’S PROGRAM. (SEE KEYSCOMMAND PROG) */ 

/* THE TERMINAL DISPLAY DESIGN UTILITZES TWO */ 

/* SEPARATE BUFFERS TO PROVIDE THE USER WITH THE */ 
/* CAPABILITY OF CONTINUING TO ENTER DATA PRIOR */ 

/* TO THE USER’S PROGRAM BEING SWAPPED IN TO */ 

/* PROCESS THE PREVIOUS INPUT LINE. */ 

/* THE FIRST BUFFER IS CALLED THE ’CURRENT LINE* */ 
/* AND CONTAINS THE INPUT DATA WHICH IS CURRENTLY */ 
/* BEING ENTERED BY THE USER. THE CURRENT LINE CAN */ 
/* RANGE FROM 0 TO 512 BYTES IN LENGTH. THIS IS THE*/ 
/* DATA THAT IS AFFECTED BY ANY LINE EDITING COMMAND*/ 
/* ENTERED BY THE USER. */ 

/* THE SECOND BUFFER IS THE INPUT LINE OR BUFFER. */ 
/* THE CURRENT LINE BECOMES THE INPUT LINE WHENEVER */ 
/* A CARRIAGE RETURN OR ERROR RESET (MTS COMMAND */ 
/* KEY) IS ENTERED. THIS ACTION ALSO ESTABLISHES */ 

/* A NEW CURRENT LINE. THE INPUT LINE CONTAINS THE */ 
/* THE DATA WHICH IS TRANSFERRED TO THE USER PROGRAM*/ 
/* WHEN REQUESTED. THUS THERE CAN BE AN INPUT LINE */ 
/* AND A CURRENT LINE ESTABLISHED AT ONE TIME. */ 

/* THE CURRENT CURSOR POSITION ALWAYS SPECIFIES */ 

/* WHERE THE NEXT CHARACTER WILL BE ENTERED, ON */ 

/* INPUT, AND WHERE THE NEXT CHARACTER WILL BE */ 

/* DISPLAYED DURING OUTPUT. */ 

*/ 

/* THE FOLLOWING IS AN EXAMPLE OF POINTER */ 

/* MANIPULATION DURING INPUT: */ 

/* INITIALIZATION OR CLEAR SCREEN CMD: */ 

/* ALL POINTERS ARE SET TO ZERO AND */ 

/* TERMS STATUS = INPUT BUFFER EMPTY. */ 

/* USER ENTERS DATA - ’’SAMPLE INPUT DATA'*: */ 

/* CURRENT3LINE POINTS TO THE STARTING POSITION*/ 

/* AND CURSOR ALWAYS POINTS TO THE NEXT */ 

/* POSITION TO FILL. NOTE THAT AT THIS POINT */ 

/* ONLY CURSOR HAS BEEN MODIFIED. FOR THE */ 

/* INPUT DATA ABOVE IT WOULD BE POINTING TO */ 

/* DISPLAY BUFFER POSITION 17. */ 

/* USER TERMINATES CURRENT LINE ( I.E. ENTERS CR OR */ 
/* MTSSCMD) : */ 

/* ENDS I BUFF IS SET TO CURRENT CURSOR POSITION.*/ 

/* CURSOR IS SET TO LEFT MOST POSITION OF NEXT */ 

/* LINE ON DISPLAY. */ 

/* CURRENTS L I NE IS SET TO NEW CURSOR POSITION. */ 

/* TERMSSTATUS IS SET TO INPUT WAITING. */ 

/% */ 

/* THE RESULTING POINTER POSITIONS ARE SHOWN FOR THE*/ 
/* SAMPLE INPUT DATA AND CR CHARACTERS ENTERED. */ 

/* (WHERE * = CURRENT CURSOR POSITION) */ 

/* */ 

/* NC EIB */ 

/* */ 

/* I SAMPLE INPUT DATA ! */ 

/* */ 

/* I * I */ 

/* */ 

/* CL 

/* .*/ 

/* THE SAMPLE INPUT DATA IS NOW AVAILABLE FOR THE */ 
/* USER’S PROGRAM WHEN IT’S TIMESLICE COMES UP. */ 

THE NEXTSCHAR (NC) POINTER SPECIFIES THE NEXT 
CHARACTER TO BE READ AND RETURNED TO THE USER 
/* PROGRAM. WHEN NEXTSCHAR = ENDS I BUFF, A CARRIAGE 
RETURN (CR) IS RETURNED TO THE CALLING USER */ 

PROGRAM. 

THERE ARE THREE OCCASIONS WHEN THE NEXTSCHAR 
/* POINTER IS RESET EQUAL TO THE CURRENTSLINE 
POINTER: 

(1) FOR A CLEAR SCREEN COMMAND. 

/* (2) WHEN READSTERMINAL PROC DETECTS THAT THE */ 

/-* END OF THE INPUT BUFFER HAS BEEN REACHED. 
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/* (3) WHEW WRITESTERMINAL PROG OUTPUTS CHARACTERS */ 
/* TO THE TERMINAL FROM THE USER’S PROGRAM. */ 
/* */ 
/% THE OUTPUT OF DATA FROM THE USER’S PROGRAM TO */ 
/* THE TERMINAL RESULTS IN THE FOLLOWING: */ 
/* Cl) THE CHARACTER IS DISPLAYED AT THE CURRENT */ 
/* CURSOR POSITION. */ 
/* (2) THE CURSOR POSITION IS INCREMENTED. */ 
/* (3) THE CURRENTS LINE AND NEXT'S CHAR POINTERS ARE */ 
/* SET EQUAL TO THE NEW CURSOR POSITION. */ 
/* (4) THE TERMINAL STATUS IS SET TO EMPTY. */ 
/* */ 
/* */ 
/* ANOTHER DESIGN CONSIDERATION WAS THE REQUIREMENT */ 
/* FOR THE TERMINAL MODULE TO PROVIDE A BLINKING */ 
/* CURSOR DISPLAY AT EACH TERMINAL. THIS REQUIRED */ 
/* SPECIAL PROCESSING TO ENSURE THAT THE CUHSOR */ 
/* CHARACTER (05FH) DID NOT GET LOST DURING THE */ 
/* CURSOR UPDATE AND MANIPULATION FUNCTIONS */ 
/* ACCOMPLISHED BY THE KEY PROCESSING AND SYSTEM */ 
/■* FUNCTION SUBMODULES. CHECKSCURSOR PROCC PRIMITIVE */ 
/* SUBMODULE) PROVIDES THIS FUNCTION. */ 
/* */ 
/* */ 



/'I****;#:*;*;*****;***;*:**;#::*:*;***:*:*:*:***;*:*;**:#:;#:*;#:******;**:##*#;**/' 



/***** TERMINAL, INTERFACE DATA DECLARATIONS *******/ 

/I*###*#****#;*#******###:*;******#*#:,******#******** *****/' 



[MACRO I BUFFS EMPTY *0’ 3 

[MACRO CURSORSCHAR ’5FH’ 3 

/ # X * * * X * :* * * * * 5JC * * * * * X * * * *: * * # * * * * * X * * * * * * * * * * * * * * *: ;* # * / 

TERMINAL INTERFACE DECLARATIONS ********/ 

/* ASCII - CONTAINS DATA FOR MATRIX CODE TO ASCII*/ 

/* CONVERSION. */ 

DECLARE ASCII DATA ( 1EH, 1CH, 1BH, SDH, 5BH, 29H, 28H, 7FH, 

26H, 3DH, 25H, 24H, 23H, 40H, 2 1H, 2AH, 0AH, 0CH, 0BH, 0A0H, 

ODH, 30H, 4FH, 15H, 55H, 59H, 54H, 52H, 45H, 57H, 5 1H, 49H, 

0DH, 9 , 3 1H, 9 , 22H, 3 AH, 4CH, 0A5H, 4 AH, 48H, 47H, 46H, 44H, 53H, 
4 1H, 4BH, 0FFH, 30H, 20H, 0A3H, 0A2H, 3FH, 3EH, 3CH, 4DH, 4 EH, 
42H, 56H, 43H, 58H, 5AH, 0FFH, 

0FFH, 0FFH, 0FFH, OFFH, OFFH, OFFH, OFFH, 7FH, 0FFH, OFFH, 
0FFH, 0A4H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 0A0H, 
ODH, OFFH, OFFH, 13H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 

OFFH, OFFH, OFFH, OFFH, OFFH, 09 , OFFH. OFFH, OFFH, 0A5H, 

OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
20H, 0A3H, 0A2H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
0A1H, OFFH, OFFH, OFFH, 

OFFH, OFFH, OFFH, 3FH, OFFH, 7DH, 7BH, 7FH, OFFH, 7EH, 5CH, 
0A4H, 60H, 5 EH, 7CH, OFFH, OFFH, OFFH, OFFH, OAOH, ODH, 
10H.0FH, 15H, 15H, 19H, 14H, 12H.05, 17H, 1 1H,O9,60H, 

5 EH, 7CH, 09 , OFFH, OFFH, OCH, 0A5H, OAH, 08,07,06,04, 

13H, 0 1 , OBH, OFFH, 7DH, 20H, 0A3H, 0A2H, OFFH, OFFH, OFFH. 

ODH, OEH, 02 , 16H, 03 , 18H, 1AH.0FFH, 

39H, 38H, 37H, 2DH, 2BH, 30H, 39H, 7FH, 37H, 36H, 35H, 34H, 

33H, 32H, 3 1H, 38H, 36H, 35H, 34H, OAOH, ODH, 70H, 6FH, 15H, 

75H, 79H, 74H, 72H, 65H, 77H, 71H, 69H, 33H, 32H, 31H, 09 , 

27H, 3BH, 6CH, 0A5H, 6 AH, 68H, 67H, 66H, 64H, 73H, 6 1H, 6BH, 
OFFH, 30H, 20H, 0A3H, 0A2H, 2FH, 2EH, 2CH, 6DH, 6 EH, 62H, 

76H, 63H, 78H, 7 AH, OFFH) ; 

/"if:*:*#*:* sc***:* JR*** IS**:*: i***:*::*: at***:* St*******************/ 

/* STATDS3BASE - START OF STATUS LINE AT EACH TERM */ 

/* DISPLAY3BASE - START OF DISPLAY LINES *s 

DECLARE STATUS3BASE DATA 
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( 00H, 07H, 40H, 09H, 80H, 0BH, 0C0H, 0DH) ; 
DECLARE DISPLAYSBASE DATA 

( 40H, 07H, 80H, 09H, 0C0H, 0BH, 00H, 0EH) ; 



/****************************************************/ 
/* MTSSMESSAGE - DATA VECTOR CONTAINING ALL THE MTS */ 
/* MESSAGES WHICH MAY BE DISPLAYED IN */ 



/* THE MTS MSG FIELD OF THE STATUS */ 
/* LINE. */ 
/* SIZES MESSAGE- DATA VECTOR CONTAINING THE TEXT */ 
/* PORTION OF THE SIZE MSG FIELD OF */ 
/* THE STATUS LINE. */ 



/************************ ****************** **********/ 



DECLARE MTSSMESSAGE 
’ INVALID CMD * , 

’ DISK NR ERROR’ , 

’ PRINTER NOT RDY’ , 

’ DRIVE NOT AVAIL’) 



DATA ( ’ 

DISK NOT AVAIL’ , ’ 
KEY ERROR 
HARDWARE ERROR ’ , ’ 



DISK IN USE ’ , 
DRIVE LTR ERROR’ , 
TASK DELETED ’ , 



DECLARE SIZESMESSAGE DATA (’K MTS ’); 



/* ***************** */ 
/* THE NEXT FOUR DECLARATIONS PROVIDE THE POINTERS */ 

/* UTILIZED TO CONTROL THE INPUT/OUTPUT AT EACH */ 

/* TERMINAL. */ 

/* CURSOR - SPECIFIES THE CURRENT ADDRESS WHERE THE */ 

/* CURSOR IS TO BE DISPLAYED. */ 

/* CURRENT3LINE - ADDRESS WHICH POINTS TO INITIAL BYTE */ 
/* OF CURRENT USER INPUT LINE. THIS LINE HAS */ 

/* NOT YET RECEIVED A ’CR’ AND THUS IS NOT YET*/ 

/* CONSIDERED AN INPUT BUFFER. %/ 

/* NEXTSCHAR - POINTS TO NEXT CHAR TO BE PROCESSED FROM*/ 
/* THE INPUT BUFFER. AN INPUT IS DEFINED AS A */ 

/* STRING OF ASCII CHARACTERS (FROM 1 TO 512) */ 

/* WHICH HAS BEEN TERMINATED BY A ’CR’ OR */ 

/* ’ MTS S CMD ’ KEY BY THE USER. */ 

/* ENDS I BUFF - POINTS TO BYTE POSITION IN INPUT BUFFER */ 
/* WHERE ’CR’ OR ’ MTSSCMD’ WAS RECEIVED. */ 

/* ******************/ 



DECLARE CURSOR (8) 
DECLARE CURRENTS LINE (8) 
DECLARE NEXTSCHAR ( 8) 
DECLARE ENDS I BUFF (8) 



BYTE IN ITI AL( 0,0,0, 0,0, 0,0,0) 
BYTE IN ITI AL( 0,0, 0.0,0, 0,0,0) 
BYTE IN IT I AL( 0,0, 0,0,0, 0,0,0) 
BYTE IN ITI AL( 0,0, 0,0,0, 0,0,0) 



/* CAPITALIZE - SET TO ONE IF TERMINAL IN CAP MODE */ 



DECLARE CAPITALIZE <4) BYTE INITIAL (1,1, 1,1); 

/* TERMSSTATUS - CONTAINS THE CURRENT STATUS OF */ 

/* EACH TERMINAL’S INPUT BUFFER, */ 

/* EITHER INPUT WAITING; */ 

/* MTS CMD READY; OR I BUFF EMPTY. */ 

DECLARE TERMSSTATUS (4) BYTE INITIAL ( C IBUFFSEMPTY1 , 

C I BUFFS EMPTY] , [ I BUFFS EMPTY] , [ I BUFFS EMPTY! ) ; 

/* SWAPSPOS - FOR EACH TERMINAL THERE IS A ONE BYTE */ 
/* SAVE AREA WHICH IS USED DURING CURSOR */ 

/* BLINKING PROCESSING */ 

DECLARE SWAPSPOS (4) BYTE INITIAL ( [ CURSOR3CHAR3 , 

[ CURSORSCHAR] , C CURSORSCHAR! , C CURSORSCHAR! ) ; 



EOF 

/****************************************************/ 
/*** TERMINAL INTERFACE UTILITY PROCEDURES *******/ 
/****************************************************/ 



[MACRO TRUE ’OFFH’l 
[MACRO FALSE ’0’ ! 
[ MACRO SWAPSPOS ’ 1 1FDH’ ] 
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COMPARESPTRS: PROCEDURE; 

/* COMPARES TWO POINTERS (2 BYTES EACH) TO DETERMINE*/ 



/* IF THEY ARE EQUAL. */ 
/* INPUT: DE - ADDRESS OF FIRST PTR */ 
/* HL - ADDRESS OF SECOND PTR */ 
/* OUTPUT: A - TRUE IF EQUAL, FALSE OTHERWISE, */ 
/* CALLED BY: KEYSCOMMAND; RE ADS TERM INAL ; */ 



CY=0; 

IF ( A=M( DE) — M( HL) ) TZERO THEN 
A= C FALSE] 

ELSE 

DO; 

DE= DE+ 1 ; HL=HL+ 1 ; 

IF ( A= M( DE) — MC HL) ) TZERO THEN 
A 3 C FALSE! 

ELSE 

A= [ TRUE] ; 

END; 

END COMPARESPTRS ; 

CONVERTS NUMBRSTOS AS C 1 1 : PROCEDURE ; 

/* CONVERTS THE SPECIFIED NUMBER TO A DISPLAYABLE */ 



/* TWO DIGIT DECIMAL NUMBER (MAX VALUE IS 99). */ 
/* INPUT: A - NUMBER TO BE CONVERTED. */ 
/* OUTPUT: B - LEFT MOST DIGIT TO BE DISPLAYED. */ 
/* C - RIGHT MOST DIGIT TO BE DISPLAYED. */ 
/* CALLED BY: SIZESMSG; STATUSSM SG; */ 



/ #|C 5ft 5ft ^ ^ Jf? ^ 5ft 3^ 3fv 3fC 3^ 3f^ 3fC 3fv 3|> 3f? 5ft 3^ 3^ 3jC 5ft 3f> 3^ 3fv rft 3>ft 3f> 3^ 3|C 5ft 3f! 3|C #fC 5ft 3^ Jfv 3^» 5ft 5ft 5fC 5ft / 

B=0; C=A; 

DO WHILE C A : : 10) PLUS; 

B=B+ 1 ; 

C=(A=C-10) ; 

END; 

C= ( A= A+30H) ; 

B=( A= B+30H) ; 

END CONVERTS NUMBRSTOSASC 1 1 ; 



GETS INDEX: PROCEDURE; 

/at****#******:**#:*:*****:*********:*:*:*:*:}::):*:*:****:***:*****:*:*/' 



/* USED TO GET THE INDEX INTO AN ADDRESS ARRAY BY */ 
/* COMPUTING THE OFFSET FROM A GIVEN BASE ADDRESS. */ 
/* INPUT: a - OFFSET VALUE (NORMALLY THE TASK OR */ 

/* TERMINAL NUMBER) . */ 

/* HL - BASE ADDRESS */ 

/% OUTPUT: DE- ARRAY OFFSET */ 

/* HL- ARRAY OFFSET ( HL=DE) */ 

/* BC- COMPUTED OFFSET */ 

/% CALLED BY: SCROLLED ISPLAY; UPDATESCURSOR; */ 

/* KEYSCOMMAND; TERMS INPUTSCNTL; */ 

/* RE ADS TERM INAL; VRITE5TERMINAL 

/***#*#*:f:**:f::|:#**:fc##*****#:(::f::fc:f:*:f:***##*****:f:*****:*:****:f:/' 

CY=0; B=0 ; 

C= ( A= < < A) ; /* SET ADDRESS OFFSET TO 0FFSET*2 */ 

HL=HL+BC ; DE=HL; 

END GETS INDEX; 



GETS VALUE: PROCEDURE; 

/**#*#####***********************#**#**:*:******###****/ 



/* GETS A 2 BYTE VALUE FROM MEMORY. *f 

/* INPUT: DE - ADDRESS OF 2 BYTE VECTOR; THE */ 

/* CONTENTS ARE TO BE STORED IN THE */ 

HL REGISTER. */ 

/* OUTPUT: HL - CONTENTS OF 2 BYTE VECTOR */ 

/* DE - ADDRESS OF THE HIGH ORDER BYTE 

/* CALLED BY: SCROLLSDISPLAY; UPDATESCURSOR; */ 
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/* KEYSCOMMAND; READS TERMI NAL 5 *Z 

Z* WRITE8TERMINAL; GETSD ISPLAYSADDR *Z 

L= < A= M( DE) ) ; DE= DE+ 1 ; H= ( A=M( DE) ) ; 

END GETS VALUE ; 



STORES VALUE: PROCEDURE; 

/I************:*****:*:*:***********:**:***:***:*****#******:**/ 



z* STORE A 2 BYTE VALUE INTO MEMORY. *Z 
Z* INPUT: HL - VALUE TO BE STORED INTO MEMORY *Z 
Z* DE - ADDRESS OF HIGH ORDER BYTE *Z 
/* CALLED BY: UPDATESCURSOR; KEYSCOMMAND; */ 
z* READSTERMINAL; WRITESTERMINAL; *z 
Z* GETSD ISPLAYSADDR; */ 



Z************** ******:*:*:**** **»:**^:****»:^:*********^t*»:^:*/' 

M(DE) = (A=H); DE= DE- I ; M(DE) = (A=L); 

END STORES VALUE; 



MOVESBYTES: PROCEDURE; 

Z********x**:fc**:K*********:f:********:K:K:>:*:f^K:K:t:*:K:K*:K*:*::»:**:f:Z 

Z* MOVES BYTES OF DATA FROM ONE MEMORY LOCATION TO */ 



Z* ANOTHER. *Z 
Z* INPUT: BC - NUMBER OF BYTE TO BE MOVED. */ 
z* DE - STARTING MEMORY ADDRESS TO MOVE *z 
z* BYTES TO (DESTINATION). */ 
Z* HL - STARTING MEMORY ADDRESS TO MOVE */ 
Z* BYTES FROM ( SOURCE) . */ 
z* CALLED BY*. SIZESMSG; MTSSMSG; *Z 



Z********************************************'-*:*******/ 

REPEAT; 

M( DE) = ( A=M( HL) ) ; 

DE= DE+ 1 ; HL= HL+ 1 ; 

BC= BC- 1 ; A= 0 ; 

UNTIL (A::B) ZERO 3 (A::C) ZERO; 

END MOVESBYTES; 



SWAPSCURSOR: PROCEDURE; 

Z****************************************************/ 



SWAP THE SPECIFIED TERMINAL’S CURRENT CURSOR 
Z* POSITION CHAR WITH THE SWAPSPOS CHAR. */ 

/* INPUT: A - TERMINAL NUMBER */ 

z* HL - DISPLAY ADDRESS OF CURSOR POSITION 

Z* CALLED BY*. BLINKSCURSORS; CHECKSCURSOR; */ 

DE=HL; /* SAVE DISPLAY ADDRESS */ 

B=0 ; C=A; 

HL= C SWAPSPOS] +BC ; z* GET SWAP ADDRESS */ 

B= ( A= M( DE) ) ; SWAP 

M( DE) = ( A= M( HL) ) ; 

M( HL) = ( A=B) ; 

END SWAPSCURSOR; 



EOF 

Z******** TERMINAL INTERFACE PRIMITIVES ************Z 
Z****************************************************/ 



(MACRO TRUE ’ 0FFH’ ] 
(MACRO FALSE ’0’ 3 
(MACRO BLANK ’20H’ ) 
(MACRO I BUFFS EMPTY *0’ ] 
(MACRO DISPLAYSSIZE ’512’ ] 
(MACRO TERMSPORT ’03FH’] 
(MACRO CURSORS CHAR ’03FH’] 



/X***************************************************/ 

z*********** INTERNAL LINKAGE MACROS **************z 
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c irrr tbi 



ctb 



1000H] 



[MACRO 


STATUSSBASE 


’ [HEX 


TB 


+ 


0 10613] 


[MACRO 


DISPLAYS BASE 


* [HEX 


TB 


+ 


011 1H] 


[MACRO 


CURSOR 


’ [HEX 


TB 


+ 


01D5H] 


[MACRO 


CURRENTSLINE 


• [HEX 


TB 


+ 


01DDH] 


[MACRO 


NEXTSCHAR 


’ [HEX 


TB 


+ 


01E5H] 


[MACRO 


ENDS I BUFF 


* [HEX 


TB 


+ 


01EDH] 


[MACRO 


TERMS STATUS 


’ [HEX 


TB 


+ 


01F9H] 


[MACRO 


GETS INDEX 


'[HEX 


TB 


+ 


024CH] 


[MACRO 


GETSVALUE 


* [HEX 


TB 


+ 


0259H] 


[MACRO 


STORESVALUE 


’ [HEX 


TB 


+ 


0262H] 


[MACRO 


SWAPSCURSOR 


’ [HEX 


TB 


+ 


027EH] 



BLANKS DISPLAY: PROCEDURE; 



/* PLACES BLANKS INTO THE INDICATED AREA OF A */ 
/* TERMINAL DISPLAY. */ 
/* INPUT: BC - STARTING ADDRESS (RANGE 0 TO 511) */ 
/* DE - NUMBER OF BYTES TO SET TO BLANK */ 
/* HL - BASE ADDRESS */ 
/* CALLED BY*. KEYS COMMAND ; SCROLLSDISPLAY; */ 
/* CLEARSSTATUSSLINE; MTSSMSG; */ 



HL= HL+ BC ; 

REPEAT; 

M< HL) = ( A= C BLANK] ) ; 

HL=HL+ 1 ; 

DE= DE- 1 ; A=0 ; 

UNTIL (A::D) ZERO & (A::E) ZERO; 
END BLANKSDISPLAY; 



GETSD I SPLAYS ADDR: PROCEDURE; 

/* GETS A MEMORY ADDRESS IN THE DISPLAY BUFFER USING*/ 
/* THE DISPLAY BUFFER PTR AS OFFSET FROM THE DISPLAY*/ 



/* BASE ADDRESS . */ 
/* INPUT: BC - TERMINAL NUMBER OFFSET. */ 
/* DE - ADDRESS OF DISPLAY BUFFER PTR */ 
/* OUTPUT: HL - MEMORY ADDRESS IN DISPLAY BUFFER. */ 
/* BC - DISPLAY PTR VALUE. */ 
/* CALLED BY: TERMS INPUTS CNTL; KEYSCOMMAND; */ 
/* BLINKSCURSORS; READSTERMI NAL ; */ 
/* VRITESTERMINAL; */ 
/*#********** *********************************;#:***:#:**/ 

DECLARE PTR( 2) BYTE; 

CALL C GETS VALUE] ; 

PTR=HL; /* SAVE DISPLAY PTR VALUE */ 
DE=(HL=CDISPLAYSBASE]+BC) ;/* GETS VALUE PARAMETER */ 
BC= ( HL= PTR) ; /* GET DISPLAY PTR VALUE */ 
CALL [GETS VALUE] ; /* GET DISPLAY BASE */ 
HL=HL+BC; /* GET DISPLAY ADDRESS */ 
END GETSD I SPLAYS ADDR ; 



CHECKSCURSOR? PROCEDURE; 

/^c^^5fc^c^c^^:^?fc^^5jc^;^^^?fc^^^c^^:^^^^c*************************/ 

/* PRIOR TO CHANGING THE CURRENT CURSOR POSITION OR */ 
/* DISPLAYING A CHARACTER AT THE CURRENT CURSOR POS , */ 



/* A CHECK IS ALWAYS MADE TO ENSURE THAT THE */ 

/* CURRENT DISPLAY IS A DATA CHARACTER AND NOT THE */ 
/* CURSOR ITSELF (I.E. 5FH) . IF IT IS THE CURSOR */ 
/* A SWAP IS MADE. */ 
/* INPUT: A - TERMINAL NUMBER */ 
/* CALLED BY: KEYSCOMMAND; TERMS INPUTS CNTL; */ 
/* WRITES TERM I NAL? 



/********************:*:*******************************/ 
DECLARE T BYTE; 

T= A; HL=C CURSOR]; 

CALL [GETS INDEX]; 
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GALL GETSD I SPLAYS ADDR; 

IF (A=M(HL); A: : [ CURSORSCHARJ ) ZERO THEN 
DO? 

A=T; 

GALL C SVAPSCURSOR] ; 

END; 

END CHECK3CURSOR; 



GETS3TATUSSADDR: PROCEDURE; 

/'X-**XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/x GETS THE BASE ADDRESS OF THE STATUS LINE FOR THE */ 



/X 


SPECIFIED 


TERMINAL. 


X/ 


/X 


INPUT: 


A 


- TERMINAL NUMBER 


X/ 


/X 


OUTPUT: 


HL 


- MEMORY ADDRESS OF FIRST BYTE IN 


X/ 


/X 






STATUS LINE. 


X/ 


/X 


CALLED 


BY: 


CLEARSSTATUSSL I NE ; MTSSMSG; 


X / 


/X 






SIZESMSG; STATUSSMSG; 


X / 



/ ^ t t 'r *f' <t» * r* 'f' n' *r* *r+ 'v +r* ^ n' * c* ^r* t t ^ ^ *r* n > ^ y T' ^ ■t' ^ ^ ^ ^r* *v+r 

HL= C STATUSSBASEI ; 

CALL C GETS INDEX] ; 

GALL C GETSVALUE] ; 

END GETSSTATUSSADDR? 



GETS TERMS STATUS : PROCEDURE; 

/ *|C ifC ^fC ^CSfC5#C^C ^ ^ ^ 2fC 

/* RETRIEVES THE TERMINAL STATUS FOR THE INDICATED */ 



/* TERMINAL. TERMINAL STATUS SPECIFIES WHETHER */ 
sx OR NOT THERE IS AN INPUT BUFFER OR MTS COMMAND */ 
/* READY FOR PROCESSING FOR THAT TERMINAL. */ 
/* INPUT: A - TERMINAL NUMBER */ 
/* OUTPUT: A - TERMINAL STATUS */ 
/* CALLED BY: KEYSCOMMAND ; TERM I NALSSTATUS ? */ 
/* UP DATES CURS OR; MONITOR (MON MOD); */ 



/****************************************************/ 
B=0 ; C= A; 

HL= C TERM3STATUS ] + BC ; 

A=M( HL) ; 

END GETSTERMSSTATUS ; 



SCROLLS D I SPLAY: PROCEDURE ; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

sx SCROLLS THE DISPLAY FOR THE INDICATED TERMINAL. */ 
/X INPUT: A - TERMINAL NUMBER */ 

/x CALLED BY: UPDATESCURSOR *s 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



DECLARE TERM BYTE; 

DECLARE POS( 2) BYTE; 

TERM= A; HL= C DISPLAYS BASE] ; 

CALL [GETS INDEX!; 

CALL [ GETSVALUE3 ; DE= HL ; /*DE= DISPLAY BASE ADDR x/ 
POS= HL; / X SAVE DISPLAY BASE ADDRESS*/ 

BC = 64 ; 

BC= ( HL=HL+BC) ; /* BC=DISPLAY BASE + 64 */ 

HL=448 ; 

REPEAT; 

M( DE) = ( A=M( BC) ) ; 

BC= BC+ 1 ; DE= DE+ 1 ; 

HL=HL-1; A=0 ; 

UNTIL ( A : : H) ZERO Q ( A: : L) ZERO; 

BC=448? /* SETUP PARAMETERS FOR x/ 

DE= 64 ; HL=POS ; /X BLANKSD I SPLAY PROC x / 

CALL BLANKSD I SPLAY; 

END SCROLLSDISPLAY; 



SENDSBEEP: PROCEDURE; 

/'XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

/* SENDS A BEEP TO THE INDICATED TERMINAL. */ 

/x THE FORM OF THE TERMINAL ALERT CONTROL BYTE IS: X/ 

/x 7 6 3 4 3 2 1 0 
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/* IA3IC3IA2IC2IA1 IC1 IA0IC0I 



*/ 



*/ 

/* WHERE: */ 

/* A( I) = 1; GENERATES AN ALARM AT STATION I. */ 

/* G(I) = 1; GENERATES A CLICK AT STATION I. */ 

/* INPUT: A - TERMINAL NUMBER */ 

/* CALLED BY? KEYSCOMMAND; 

H=0 ; L= A; 



IF (A: : 0) PLUS 3 (A::4) MINUS THEN 
DO CASE HL; 

OUT( [ TERMSPORT] ) = ( A=2) ; 

OUT( I TERMSPORT] ) = ( A=8) ; 

OUT( I TERMSPORTI ) = ( A=20B> ; 

OUT( C TERMSPORTI ) = ( A=80H) ; 

END; 

END SENDSBEEP; 



SENDSCLICK: PROCEDURE; 



/* SENDS A CLICK TO THE INDICATED TE RHINAL. SEE */ 
/* SENDSBEEP PROC FOR DEFINITION OF TERMINAL ALERT */ 
/* CONTROL BYTE. */ 
/* INPUT: A - TERMINAL NUMBER */ 
/* CALLED BY: UPDATE3CURS0R 



/XXXXXXXXXXXXXXXXXXXXX’XXXXXXXXX'ZXXXXXXXXXXXXXXXXXX-XXX/ 

H=0; L= A; 

IF ( A : : 0 ) PLUS 8 (A:: 4) MllfUS THEN 
DO CASE HL; 

OUT( [ TERMSPORT] ) = ( A= 1 ) ; 

OUT( C TERMSPORT] ) = ( A=4) ; 

OUT< C TERMSPORT] ) = ( A= 10H) ; 

OUT( [ TERMSPORT] ) = ( A=40H) ; 

END; 

END SENDSCLICK; 



UPDATESCURSOR: PROCEDURE; 

/*******;M:*******************************************/ 
/* CONTROLS THE UPDATING OF THE CURSOR POSITION. THE*/ 
/* PRIMARY CONCERN IS TO CHECK FOR SCROLLING PRIOR */ 
/* TO UPDATING THE CURSOR. SCROLLING IS NOT ALLOWED */ 
/* IF SCROLLING WILL DESTROY ANY INPUT DATA NOT YET */ 



/* PROCESSED. */ 
/* SUBPROCEDURES: CHECK3SC ROLLS LOCKOUT */ 
/* UPDATES D I SPLAYS PTRS */ 
/* INPUT: A - TERMINAL NUMBER */ 
/* HL - VALUE TO WHICH CURSOR POSITION IS */ 
/* TO BE SET. */ 
/* CALLED BY: KEYSCOMMAND; TERMS INPUTS CNTL ; */ 
/* WRITESTERMINAL; */ 



/ * * * * * * * * * * * * * * * # # * * * * * * * * * * * x * * * * X X ** * * * X X * * * * # * * * * / 

DECLARE T BYTE; 

DECLARE POS( 2) BYTE; 

CHECKSSCROLLS LOCKOUT: PROCEDURE; 

/'XXXXXXXXXXXXXXntzXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/* CHECKS TO SEE IF THERE IS AN INPUT BUFFER */ 
/* READY. IF SO, CHECKS TO SEE IF SCROLLING WILL*/ 
/* DESTROY INPUT BUFFER. IF SO, RETURN TRUE, */ 
/* ELSE RETURN FALSE. */ 

/* OUTPUT: A - TRUE IF SCROLLING IS LOCKED OUT */ 
/**********> c**:^*********************************/ 
A=T; 

CALL GETSTERMSSTATUS ; 

IF ( A=A-C IBUFFSEMPTYI ) ’ZERO THEN 

DO; /* CHECK NEXTSCHAR PTR */ 

A=T; HL= [ NEXTSCHAR] ; 

CALL [ GETS INDEX] ;/* GET NEXTSCHAR OFFSET*/ 
GAIT. [GETSVALUE] ; /* GET NEXTSCHAR VALUE*/ 
BC= -64; CY= 0 ; 
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IF (HL-HL+BC) GY THEN SCROLL OK */ 

A=[ FALSE] 

ELSE SCROLL LOCKEDOUT */ 

A= C TRUE] ; 

END 

ELSE /* NO INPUT BUFFER, SCROLL OK 

A= C FALSE] ; 

END CHECKSSCROLLSLOCKOUT; 



UPDATESDISPLAYSPTRS: PROCEDURE; 

/tk***********************************************/' 
/* UPDATES ALL DISPLAY PTRS TO REFLECT THE */ 

/* SCROLLING OF THE DISPLAY. USES SETSPTR TO */ 
/* DECREMENT AND STORE THE POINTER VALUES. */ 

/* SUBPROCEDURE: SETSPTR; */ 

/^^c^yK*********************************^:********/' 

SETSPTR: PROCEDURE; 

/'^*^7K*************************^******^*^* / ' 

/* SETS TH E S PECIFIED PTR TO PTR-64, AND *s' 
/* STORES THE RESULT. */ 

/* INPUT: DE - ADDRESS OF PTR */ 

/XXXXXX**#*X*XXXXXXXXX*XX*X***************X**/ 

CALL C GETSVALUE] ; 

BC = -64; HL= HL+BC ; 

CALL C STORES VALUE ] ; 

END SETSPTR; 

s'* START OF UPDATES D I SPLAYS PTRS PROCESSING */ 

SX****'***************************************/ 



/* SET CURSOR TO LEFT MARGIN OF 8TH LINE*/ 
s'* ON DISPLAY. */ 

A=T; HL=[ CURSOR]; 

CALL [GETS INDEX]; 

HL=448; DE= DE+ l ; 

CALL C STORES VALUE] ; 

/* SET NEXTSCHAR = NEXTSCHAR - 64 */ 

DE= ( HL= [ NEXTSCHAR] +EC) ; 

CALL SETS PTR; 

s'* SET CURRENTS LINE = CURRENTS LINE - 64 */ 
A=T; HL= [ CURRENTSL INE] ; 

CALL [GETS INDEX]; 

CALL SETS PTR; 

/* SET ENDSIBUFF = ENDSIBUFF - 64 */ 

A=T; HL= [ ENDS I BUFF ] ; 

CALL [GETS INDEX]; 

CALL SETS PTR; 

END UPDATES D I SPLAYS PTRS ; 

/TK*************************************^****^***^^ 

/* START OF UPDATESCURSOR PROCESSING */ 

^TK**************************************^*****^*^ 

T= A; /* SAVE INPUT TERMINAL NUMBER */ 

POS=HL; /* SAVE INPUT CURSOR POSITION */ 

BC 3 -C D ISPLAYSS IZE] ; CY=0; 

IF (HL=HL+BC) CY THEN /* SCROLLING REQUIRED */ 
DO; 

CALL CHECKSSCROLLSLOCKOUT; 

IF ( A=> > A) CY THEN /* SCROLLING LOCKED OUT */ 
DO; 

A=T; 

CALL SENDSCLICK; 

END 

ELSE s* SCROLLING IS OK */ 

DO; 

A = T' 

CALL SCROLLED I SPLAY; 

CALL UPDATESD ISPLAYSPTRS ; 

END; 



156 



END 

ELSE /* NO SCROLLING REQUIRED; UPDATE CURSOR 
DO; 

A=T; HL=[ CURSOR]; 

CALL [GETS INDEX!; GET CURSOR PTR ADDR */ 

HL-POS; s* SETUP C STORES VALUE] PARAMETERS */ 
DE=DE+ 1 ; 

CALL C STORES VALUE] ; /* UPDATE CURSOR PTR */ 
END; 

END UPDATESCURSOR; 



EOF 

f * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * ** ** * ** * * * * ** * * * * * * * / 

/****** TERMINAL KEY PROCESSING PROCEDURES ********/ 



[MACRO 


TRUE 


’ 0FFH 4 ] 


[MACRO 


FALSE 


’0’ I 


[MACRO 


BLANK 


’ 20H 4 ] 


[MACRO 


CURSORSCHAR 


*5FH* ] 


[MACRO 


INPUTS WAITING 


* 0FFH 4 ] 


[MACRO 


MTSSCMDS READY 


4 0F0H 4 ] 


[MACRO 


IBUFFSEMPTY 


* 0 * ] 





/*****:;*:***:* UTS KEY COMMAND 


MACROS xxxxxxxxxxxxxxxx/' 


[MACRO 


MTSSCMD 


4 0A0H* ] 


[MACRO 


CR 


’0DH* ! 


[MACRO 


CHARSDELETE 


’ 07FH 4 ] 


[MACRO 


LINESDELETE 


’ 0 1 5H 4 ] 


[MACRO 


CAPITAL 


4 0A1H 4 ] 


[MACRO 


CURSORSLEFT 


* 0A2H 4 ] 


[MACRO 


CURSORSRIGHT 


’ 0A3H 4 ] 


[MACRO 


CLEARSSCREEN 


* 0A4H 4 ] 


[MACRO 


ENTER 


* 0A5H* ] 


[MACRO 


RSTSCMD 


4 0 1 EH ’ ] 



/ * *: *: x * * *: * *: *: yz * * *: *: * X X * *: * * * * *: * * * * *: ^ * :£ *: * *: * * * * * *: * * * * * X * * / 


/***** 


INTERNAL AND EXTERNAL 


LINKAGE MACROS *******/ 


C INT GD TB] CGB : = 0] 


[TB : 


;r 


1000H! 


[MACRO 


TCTSSTATUS 


4 [HEX 


GB 


+ 


3E85H! ’ ! 


[MACRO 


ASCII 


* [HEX 


TB 


+ 


0003H! 4 ] 


[MACRO 


DISPLAYS BASE 


’ [HEX 


TB 


+ 


Oil 1H] 4 ] 


[MACRO 


CURSOR 


* [HEX 


TB 


+ 


01D5H] 4 ] 


[MACRO 


CURRENTSLINE 


’ [HEX 


TB 


+ 


01DDH] 4 ! 


[MACRO 


NEXTSCHAR 


4 [HEX 


TB 


+ 


01E5H] 4 ] 


[MACRO 


ENDS I BUFF 


' [HEX 


TB 


+ 


01EDH] 4 ] 


[MACRO 


CAPITALIZE 


• [HEX 


TB 


+ 


01F5H] 4 ] 


[MACRO 


SWAPSPOS 


4 [HEX 


TB 


■h 


01FDH] 4 ] 


[MACRO 


COMPARES PTRS 


4 [HEX 


TB 


+ 


0213H] 4 ] 


[MACRO 


GETS INDEX 


4 [HEX 


TB 


+ 


024CH] 4 ] 


[MACRO 


GETS VALUE 


4 [HEX 


TB 


+ 


0259H] 4 ] 


[ MACRO 


STORES VALUE 


4 [HEX 


TB 


+ 


0262H] 4 ] 


[MACRO 


BLANKS D I SPLAY 


4 [HEX 


TB 


- 


02A3H] 4 ] 


[MACRO 


GETSD I SPLAYS ADDR 


4 [HEX 


TB 


+ 


02B7H] 4 ] 


[MACRO 


CHECKSCURSOR 


4 [HEX 


TB 


+ 


02DOH] 4 ] 


[MACRO 


GETSTERMSSTATUS 


4 [HEX 


TB 


+ 


02F9H] 4 ] 


[MACRO 


SENDSBEEP 


4 [HEX 


TB 


+ 


033EH] 4 ] 


[MACRO 


UPDATESCURSOR 


4 [HEX 


TB 


+ 


03C2H] 4 ] 



KEYSCOMMAND: PROCEDURE; 
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/* 


CHECKS FOR A 


terminal key command for every key 


*/ 


/* 


INTERRUPT RECEIVED. 




*/ 


/* 


KEY COMMANDS 


ARE: 




*/ 


/* 


CMD 


KEY 


RESULT 


*/ 


/* 


— 


— 






/* 


MTS CMD 


ERROR RESET 


SENDS A COMMAND TO 


*/ 


/* 






MTS FOR PROCESSING. 


*/ 


/* 


CR 


NEK LINE; 


TERMINATES THE 


*/ 


/* 




ENTER; SHIFT 


CURRENT LINE AND 


*/ 


/* 




CR; I/O CTL M; ESTABLISHES IT AS 




/* 






THE CURRENT INPUT 


*/ 


/* 






BUFFER. 


*/ 


/* 


CHAR DELETE 


BACK SPACE 


DELETES THE LAST 


*/ 


/* 






CHAR ENTERED. 


*/ 


/* 


LUTE DELETE 


NEXT FMAT 


DELETES THE CURRENT 




/* 






LINE. 


*/ 


/* 


CAPTIALIZE 


FS C 


FLIP/FLOP USED TO 


*/ 


/* 






SET OR CLEAR THE 


*/ 


/* 






TERMINAL INPUT MODE 


*/ 


/* 






TO UPPER OR LOKER 


*/ 


/% 






CASE LETTERS. 




/* 


CLEAR SCREEN 


FS $ 


CLEARS THE 512 CHAR 


*/ 


/* 






DISPLAY BUFFER. 




/* 


CURSOR LEFT 


< — 


MOVES CURSOR POS 


*/ 


/* 






ONE POSITION TO THE 


*/ 








LEFT. 




/* 


CURSOR RIGHT 


— > 


MOVES CURSOR POS 


*/ 


/* 






ONE POSITION TO THE 




/* 






RIGHT. 


*/ 


/* 


RST CMD 


SHIFT RS 


EXECUTE A RST 7 




/* 






INSTRUCTION. FOR 


*/ 


/* 






USE KITH CP/M DDT. 


*/ 


/* 


SUBPROCEDURES 


: ACCEPTS INPUT; 


CHECKS LEFTSMARG I N ; 


*/ 


/* 




DELETESCHAR; 


CLEARS PTRS ; MTS S CMD; 


*/ 


/* 




TERMINATESCL; 


CARR I AGES RETURN ; 




/* 




CHARSDELETE; 


LINESDELETE; CAPITAL; 


*/ 


/* 




CLEARSSCREEN; 


CURSORS LEFT; 


•*/ 


/* 




CURSORS R I GHT ; 


CHECKSCASE; RSTSCMD; 


*/ 


/* 


INPUT: A 


- TERMINAL NUMBER 




/* 


C 


- ASCII CHAR RECEIVED 


*/ 


/* 


OUTPUT: A 


- TRUE IF CHAR 


= KEY COMMAND 


*/ 


/* 


CALLED BY: 


TERMS I NPUTSCNTL ; 


*/ 



DECLARE ( CHAR, T) BYTE; 

DECLARE RESPONSE BYTE; 

ACCEPTS INPUT: PROCEDURE; 

/ * :* * X *: * :* :* * :*: :* * * * * *: * * * * * :* * * * * :* * * * * * * * * * * :* x * * *. x * *: / 

/* CHECKS THE TERMINAL’S CURRENT STATUS TO */ 

/* DETERMINE IF THIS NEK INPUT BUFFER SHOULD BE */ 
/* ACCEPTED. IF SO, RETURNS TRUE, ELSE FALSE. */ 
/* OUTPUT: A - TRUE IS INPUT CAN BE ACCEPTED. */ 
/* HL - IF A IS TRUE THEN HL CONTAINS */ 

/* THE ADDRESS OF TERMS STATUS . */ 

A- T; CALL [ GETS TERMS STATUS ] ; 

IF ( A: : C IBUFFSEMPTY] ) !ZERO THEN 

DO; /* INPUT BUFFER HAS NOT YET BEEN */ 
/* PROCESSED; DO NOT ACCEPT NEK BUFFER*/ 
A=T; CALL [SENDSBEEP]; 

A= C FALSE] ; 

END 

ELSE 

A= C TRUE] ; 

END ACCEPTS INPUT; 



CHECKSLEFTSMARG I N : PROCEDURE ; 
/************************************************/ 



/* CHECKS TO SEE IF CURRENT LINE IS EMPTY. */ 
/* COMPARESPTRS RETURNS THE APPROPRIATE TRUE/ */ 
/* FALSE VALUE IN THE A REGISTER. */ 
/* INPUT: DE - ADDRESS OF CURSOR */ 
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/* BC - COMPUTED OFFSET OF TERM NBR */ 

/* OUTPUT: A - RETURNED TRUE IF CURSOR IS */ 

/* PRESENTLY AT LEFT MARGIN. */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
HL = C CURRENTSLINE] +BC ; /*HL= ADD OF CURRENTL I NE*/ 
CALL CCOMPARESPTRS] ; /* COMPARE */ 

/* CURSOR = CURRENTSLINE */ 
END CHECKS LEFTS MARGIN; 



CLEARS PTR: PROCEDURE; 

/* SETS THE VALUE TO THE SPECIFIED DISPLAY */ 

/* POINTER TO ZERO. */ 

/* INPUT: HL - ADDRESS OF THE DISPLAY PTR */ 

/****************;*#******:***#*************:£:£***:*:*/ 
M(HL) = (A=0); HL= HL+ I ; M( HL) = A; 

END CLEARSPTR; 



DELETES CHAR: PROCEDURE; 

/ * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * # * * * # * * * * * * * * / 
/* DECREMENTS THE CURRENT CURSOR POSITION AND */ 
/* SETS NEW CURSOR POSITION DISPLAY TO BLANK. */ 
/* INPUT: DE - ADDRESS OF CURSOR */ 

/* BC - COMPUTED OFFSET OF TERMINAL NBR */ 

/ * * * * * * ** * * * * * * * * * * * * * * * * * * * * * x * * * * * * * * * * * * * * x * * * / 
CALL C GETSVALUE1 ; /* GET CURSOR */ 

HL=HL- 1 ; /* DECREMENT CURSOR */ 

CALL [ STORESVALUE1 ; /* SAVE NEW CURSOR POS */ 
CALL C GETSD I SPLAYS ADDR] ; /* REPLACE PRESENT */ 
M( HL) = ( A= [BLANK]); /* CHAR WITH BLANK */ 

END DELETESCHAR; 

TERMINATESCL: PROCEDURE; 

/**;#:;*::?:*;*:******;* if;***:**#***;#:*****:*:****:** ***:£*:***;*:**/' 



/* TERMINATE THE CURRENT LINE. THE SAME */ 

/* PROCESSING IS DONE FOR BOTH AN MTS CMD AND */ 
/* A CARRIAGE RETURN ( CR) SINCE EACH SPECIFIES */ 
/* THE END OF INPUT BY THE USER. */ 

/* CHECK CHAR PRESENTLY BEING */ 

/* DISPLAYED AT CURSOR POSITION */ 

/* PRIOR TO UPDATING PTRS. */ 

A=T; CALL [ CHECKSCURSOR] ; 

/* END OF CURRENT LINE; UPDATE */ 

/* DISPLAY POINTERS FOR NEW INPUT */ 
/* BUFFER AND NEW CURRENT LINE. */ 



/* SET ENDS I BUFF = CURRENT CURSOR POS */ 

A=T; HL= C ENDS I BUFF] ; 

CALL [GETS INDEX]; 

HL S C CURSOR] +BC ; 

BC=DE; DE=HL; 

CALL [ GETS VALUE] ; 

DE= BC+ 1 ; 

CALL [ STORES VALUE] ; /* ENDS I BUFF = CURSOR */ 

/* MOVE CURSOR TO BEGINNING OF */ 

/* NEXT LINE. HL CONTAINS THE */ 

/* CURRENT CURSOR POSITION. */ 

IF CA=CHAR; As: CENTER]) !ZERO THEN 

DO; /* CHAR IS EITHER NEXT LINE OR MTS CMD */ 
BC= 64 ; HL=HL+BC;/*ADD 64 TO CURRENT POS ; */ 
L=(A=L 8 OCOH) ; /*THEN CLEAR LOWER 6 BITS*/ 

A= T * 

CALL C UPDATESCURSOR] ; 

/* SET CURRENT LINE = NEW CURSOR POS*/ 
A=T; HL= C CURRENTSL INE] ; 

CALL [GETS INDEX]; 

HL = [ CURSOR] +BC ; 

BC=DE; DE= HL; 

CALL [ GETS VALUE] ; 

DE=BC+1 ; 

CALL [STORESVALUE] ; /*CURRENTS LINE = CURS OR*/ 
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END; 

END TERM I NATES CL ; 



MTSSCMD: PROCEDURE; 

/* CHECK TO SEE IF THIS INPUT CAN BE ACCEPTED. */ 
/* IF SO, SET TERMS STATUS TO MTSSCMDSREADY AND */ 
/* SET MCP BIT IN TASK CONTROL TABLE TO ENSURE */ 
/* MCP IS CALLED BY THE MONITOR TO PROCESS THIS */ 
/* MTS COMMAND. */ 

/I*** XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX********:/ 

CALL ACCEPTS INPUT; 

IF ( A = > > A) CY THEN 

DO; /* ACCEPT INPUT BUFFER */ 

M( HL) = ( A= [ MTSSCMDS READY] ) ; 

B=0; C=(A=T); 

HL= [ TCTSSTATUS] + BC; 

M(HL> = ( A=M(HL) N 2) ; 

CALL TERMINATESCL; 

END; 

END MTSSCMD; 



CARRIAGES RETURN: PROCEDURE; 

/ * if: * sfc * * if: if: if: X X if: if: if: * * * if: if: if: * * if; :fc if; i?; :fc if: if: is * * * * sic * if: if: if: if: if: * if: if^f: if: if: * / 

/* USER HAS TERMINATE CURRENT LINE. CHECK TO */ 
/* SEE IF NEW INPUT BUFFER CAN BE ACCEPTED. IF */ 
/* SO, SET TERMSSTATUS TO INPUTSWAITING AND */ 

/* TERMINATE CURRENT LINE. */ 

/ JfCJft 5fC 5fC 5fC 5fC 5fC2fC /fC^» 5fC*fC 5fC*^C 5fC5fC #|C 5fC 5f£5fC5fC5fC^fC 5fC 5fC 5fC5fC5fC<fC5fC5fC5fC 5fC5fC / 

CALL ACCEPTS INPUT; 

IF ( A= > > A) CY THEN 

DO; /* ACCEPT INPUT BUFFER */ 

M( HL) = ( A= C INPUTSWAITING] ) ; 

CALL TERMINATESCL; 

END; 

END CARR I AGES RETURN; 



CHARSDELETE: PROCEDURE; 

/ 1ft 1ft 1ft 5ft Ift 1ft 1ft Ift 1ft 1ft Ift 1ft Ift Ift Ift 1ft Ift 1ft Ift Ift 1ft 1ft 1ft Ift Ift If: If* 1ft Ift Ift Ift Ift 5ft 3f»If*5f» 5f»5f* 3f» 5f*5f»5f» 5f*5f» If*5f*If*3f» / 



/* CHECK TO ENSURE THAT CURRENT LINE IS NOT */ 
/* EMPTY. THEN DELETE THE PREVIOUSLY ENTERED */ 
/* CHAR. */ 
/* INPUT: DE - CURSOR OFFSET ADDRESS */ 



/ X 5ft 5ft * * 5ft 5ft If: * If: 5ft * if: If: if: * * * * if: * if: * ift if: * * * 5ft * 5ft if: * ** if: if: * * * # * if; if; if; if;* * / 



CALL CHECKS LEFTS MARGIN; 

IF ( A = > > A) CY THEN 

DO; /* CURRENT LINE EMPTY 

A=T; 

CALL [SENDS BEEP] ; 

END 

ELSE 

DO; /* DELETE CHAR 

A=T; CALL [ CHECKSCURSOR] ; 

A=T; HL=C CURSOR]; 

CALL [GETS INDEX]; 

CALL DELETESCHAR; 

END; 

END CHARSDELETE; 



*/ 






LINESDELETE: PROCEDURE; 

/* CHECK TO ENSURE THAT CURRENT LINE IS NOT */ 

/* EMPTY. IF NOT, THEN DELETE THE CURRENT LINE.*/ 
/* INPUT: DE - CURSOR ADDRESS OFFSET */ 

/iftiftiftiftiftiftiftiftiftiftiftiftiftiftiftiftiftiftiftif;*:*;*****:*:********************/ 

CALL CHECKSLEFTSMARGIN; 

IF ( A=> > A) CY THEN 

DO; /* CURRENT LINE EMPTY */ 



160 



A=T; 

GALL CSENDSBEEP]; 
E ND 

ELSE 



END 



DO; 

A=T; CALL [ CHECKS CURS OR] 
DO VHILE ( A = > > A) ? CY ; 
A=T; HL=C CURSOR] 

CALL C GETS INDEX] 

CALL DELETESCHAR 
A=T; HL = [ CURSOR] 

CALL CGETS INDEX] 

CALL CHECKS LEFTS MARGIN; 
END; 

END; 

LINESDELETE; 



A=0 ; 



sx GET CURSOR OFFSET 



X/ 



CAPITAL: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

/* SET OR CLEAR THIS TERMINALS CAPITALIZE FLAG. */ 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

B=0; C=(A=T); HL- C CAP ITALIZE] +BC; 

M(HL> = (A=M(HL) w 1 ) ; 

END CAPITAL; 



CLEAR3SCREEN: PROCEDURE; 

* * :fc * *: * ** * * * ** * * * * * * ^ ^ ^ * * * * *: * * # / 

/X CLEARS THE 512 BYTE DISPLAY BUFFER AND *S 

sx REINITIALIZES THE DISPLAY POINTERS. *s 

sx INPUT: HL “ CURSOR ADDRESS */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

CALL CLEARSPTR; /* REINITIALIZE DISPLAY */ 

A=T; HL= C CURRENTSL I NE ] ; sx PTRS AND TERMINAL */ 
CALL C GETS INDEX] ; sx STATUS. */ 

CALL CLEARSPTR; 

A=T; HL= t NEXTSCHARJ ; 

CALL [GETS INDEX]; 

CALL CLEARSPTR; 

A=T; CALL C GETS TERMS STATUS ] ; 

M( HL> = ( A= [ I BUFFS EMPTY] ) ; 

/* CLEAR THE DISPLAY */ 

A=T; HL= C DISPLAYSBASE] ; 

CALL [GETS INDEX!; 

CALL C GETS VALUE] ; sx DISPLAYSBASE PTR IN HL*s 
BC=0; DE=5 12 ; s* SETUP INPUT PARAMETERS FOR */ 
sx [ BLANKSD ISPLAY] PROC *S 

CALL [ BLANKSD I SPLAY] ; 

s* RESET SWAPSPOS TO CURSORSCHAR *s 

B=0; C= ( A=T) ; 

HL= C SWAPSPOS] +BC ; 

M< HL) = ( A= C CURSORSCHAR] ) ; 

END CLEARSSCREEN ; 



CURSORS LEFT: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

sx MOVES THE CURRENT CURSOR POSITION BACK ONE. *s 
/•* CHECKS TO ENSURE THAT CURSOR IS NOT ALREADY */ 
/* AT THE LEFT MARGIN OF CURRENT LINE. */ 

/* INPUT: DE - CURSOR ADDRESS */ 

CALL CHECKS LEFTS MARGIN; 

IF ( A= > > A) CY THEN 

DO; s* AT LEFT MARGIN; SEND BEEP *s 

A=T; 

CALL CSEND^BEEP] ; 

END 

ELSE 

DO; sx DECREMENT CURSOR *s 

A=T; CALL [ CHECKS CURSOR] ; 

A=T; HL=C CURSOR]; 
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CALL C GETS INDEX! ; 
CALL C GET® VALUE] ; 
HL= HL- 1 ; 

CALL [ STORES VALUE] ; 
END; 

END CURSORSLEFT; 



CURSORS RIGHT: PROCEDURE; 

/* MOVE THE CURRENT CURSOR POSITION FORWARD ONE.*/ 
/* INPUT: DE - CURSOR ADDRESS */ 

A=T; CALL C CHECKS CURSOR] ; 

A=T; HL= C CURSOR] ; 

CALL C GETS INDEX]; 

CALL £ GETS VALUE 3 ; 

HL=HL+ 1 ; /* SETUP NEW CURSOR POS */ 

A=T; CALL C UP DATES CURS OR] ; 

END CURSORSRIGHT; 



CHECKSCASE: PROCEDURE; 

Z’ * * * * a: :* ^ * * * * *: * * ** *: ** *:* ;?:* * * * * ^ *; * :* * * ** :* * /• 

/* USES A CASE STATEMENT, INSTEAD OF ’ELSE DO’ */ 
/* TO CHECK FOR THE LAST FOUR KEY COMMANDS. IF */ 
/* NOT, RESPONSE IS SET TO FALSE. (NOTE: CASE */ 
/* STMT MUST BE USED TO GET AROUND ML80’S PARSE */ 
/* STACK OVERFLOW, CAUSED BY TOO MANY ’ IF THEN */ 
/* ELSE DO’ STMTS. */ 

/* INPUT: DE - CURSOR ADDRESS */ 

H=0; L=( A= CHAR-0 A 1H) ; /* SETUP CASE OFFSET */ 
IF (A::0) PLUS Q <A::4) MINUS THEN 
DO CASE HL; 

CALL CAPITAL; 

CALL CURSORSLEFT; 

CALL CURSORSRIGHT; 

DO; HL=DE; CALL CLEARSSCREEN; END; 

END 

ELSE 

RESPONSE= < A= C FALSE] ) ; 

END CHECKSCASE ; 



RSTSCMD: PROCEDURE; 

/************************************************/ 
/* SET RST BIT IN THE TASK CONTROL TABLE SO */ 

/* RST 7 IS EXECUTED BY MONITOR. */ 

/***********************************************/ 
B= 0 ; C=(A=T); 

HL= C TCTSSTATUS] + BC ; 

M(HL) = ( A=M(HL) \ 10H) ; 

END RSTSCMD; 

/'>c^^;^^^^^^^^^^^^^^^>c^^^*^************************/ 
/* START OF KEYSCOMMAND PROCESSING */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**/ 



T= A; CHAR=(A=C); /* GET INPUT PARAMETERS */ 

RESPONSE 3 ( A= C TRUE] ) ; /* INITIALIZE RESPONSE */ 

A=T; HL= C CURSOR] ; /* GETSINDEX PARAMETERS */ 

GALL [GETSINDEX]; /* GET CURSOR OFFSET ADDRESS*/ 

IF ( A=CHAR-[ MTSSGMD3 ) ZERO THEN /* MTS GMD */ 

GALL MTSSCMD 

ELSE DO; 

IF <A=CHAR; A: : C CR] ) ZERO N 

(A:: CENTER]) ZERO THEN /* NEXT LINE OR */ 

/* ENTER DEPRESSED */ 

CALL CARRIAGESRETURN 
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ELSE DO; 

IF ( A= CHAR- [ CHARS DELETE] ) ZERO THEN 

CALL CHARSDELETE /* CHAR DELETE CUD */ 



ELSE DO; 

IF ( A= CHAR- 1 LINES DELETE] ) ZERO THEN 



CALL LINESDELETE 


/* 


DELETE LINE CMD 


*/ 


ELSE DO; 


IF ( A= CHAR- [RSTS CMD] ) 


ZERO 


THEN 




CALL RSTSCMD 


SX 


RESTART 7 CMD 


*/ 


ELSE 


CALL CHECKSCASE; 


SX 


USE CASE STMT TO 


*/ 




sx 


CHECK FOR REMAINING 


*/ 




sx 


KEY COMMANDS. 


XS 


END; END; END; END; 
A= RESPONSE; 


sx 


END OF ELSE DO * S 


xs 



END KE YSCOMMAND ; 

TERMSINPUTSCNTL: PROCEDURE; 

/•(.VUf ^ ^ Nk ^ Ni» *J» \V sio \V \V *i# ^UNk \k <vV«i# «> <i> \> X 

/ «f» /fv ^ *T** *1^ ^ ^ •r* M' ^ ^ <T* «T* ff* ^ /fi / 



/* CONVERTS THE INPUT MATRIX CODE TO ASCII; CHECKS */ 
/* FOR CAP I AL I ZAT ION AND CONVERTS LOWER TO UPPER */ 
/* CASE LETTERS IF REQUIRED; CHECKS FOR MTS KEY */ 

/* COMMANDS; IF NOT A KEY CMD THEN THE CHAR IS */ 

/* DISPLAY AT THE TERMINAL AND CURSOR INCREMENTED. *s 

SX INPUT: C - MATRIX CODE */ 

sx E - TERMINAL NUMBER */ 

/* CALLED BY: TERMINALS HLDR ( INTERRUPT MOD) */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
DECLARE C CHAR, T) BYTE; 

T=(A=E); /* SAVE TERMINAL NUMBER */ 



/* CONVERT MATRIX CODE TO ASCII */ 
B=0; HL=C ASCI I3+BC; 

CHAR= ( A= M( HL) ) ; 

/x CHECK FOR CAPITALIZATION x/ 
D=0; HL=[CAPITALIZE3+DE; 

IF ( A= M( HL) ; A::0) TZERO Q <A=CHAR-6lH) PLUS 

Q (A=CHAR-7BH) MINUS THEN /X CONVERT TO x/ 

CHAR=( A=CHAR-20H) ; sx UPPER CASE LETTER */ 

/x CHECK FOR ANY KEY COMMANDS x/ 

C=(A=CHAR); A=T; 

CALL KEYSCOMMAND; 

/x A REG RETURNED TRUE IF KEY CMD FOUND X/ 
IF ( A= > > A) ! CY THEN sx DISPLAY CHAR xs 

DO; 

A=T; CALL C CHECKS CURSOR] ; 

A=T; HL=[ CURSOR]; 

CALL [GETS INDEX]; sx GET CURSOR OFFSET xs 

CALL C GETSD I SPLAYS ADDR] ; 

M( HL) = ( A=CHAR) ; 

SX UPDATE CURSOR POSITION BY ONE. BC WAS*/ 
SX RETURNED FROM GETSD I SPLAYS ADDR SET XS 
sx TO THE VALUE OF CURSOR. */ 

HL=BC+ 1 ; 

A=T; CALL C UP DATES CURS OR] ; 

END; 

END TERMS INPUTSCNTL; 



EOF 

SXSXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

SXXXXX TERMINAL INTERFACE SYSTEM FUNCTIONS xxxxxxxxs 
sx*xx*xxxx**xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 
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[MACRO I BUFFS EMPTY 
[MACRO MTSSCMDS READY 
[MACRO CR 
[MACRO LF 



* 0 * ] 
* 0F0H’ 3 
’ 0DH’ ] 
* 0AH’ ] 



/***** INTERNAL AND EXTERNAL LINKAGE MACROS *******/ 



[ I NT GB TBI 
[MACRO TASK 



[GB := 0] [TB := 1000H3 
’ M( [ HEX GB + 3E80H3 ) 1 ] 



[MACRO MTSSMESSAGE 
[MACRO SIZESMESSAGE 
[MACRO CURSOR 
[MACRO CURRENTSLINE 
[MACRO NEXT3CHAR 
[MACRO ENDS I BUFF 



’[HEX TB + 011CH3 • 
’ [HEX TB + 01CFH1 ’ 
’ [HEX TB + 01D5HI ’ 
’ [HEX TB + 0 1BDH3 * 
* [HEX TB + 01ESH3 ’ 
’ [HEX TB + 01EDH3 ’ 



] 

] 

] 

] 

] 

] 



[MACRO 


COMPARES PTRS 


* [HEX 


TB 


+ 


0213H3 ’ 


3 


[MACRO 


CONVERTS NUMBRSTOSASC I I 




’ [HEX TB 


+ 0231H3 


[MACRO 


GETS INDEX 


• [HEX 


TB 


+ 


024GH3 ’ 


3 


[MACRO 


GETSVALUE 


* [HEX 


TB 


+ 


0259H3 ’ 


3 


[MACRO 


STORES VALUE 


• [HEX 


TB 


+ 


0262H3 ’ 


3 


[MACRO 


MOVESBYTES 


’[HEX 


TB 


+ 


026BH3 * 


3 


[MACRO 


SWAPSCURSOR 


’[HEX 


TB 


+ 


02TEH3 ’ 


3 



3 



[MACRO BLANKSDISPLAY 
[MACRO CHECKSCURSOR 
[MACRO GET3D ISPLAYSADDR 
[MACRO GETSSTATUSSADDR 
[MACRO GETSTE RMS STATUS 
[MACRO UP DATES CURSOR 



’ [HEX 


TB 


+ 


02A3H3 


’ [HEX 


TB 


+ 


02D0H3 


’ [HEX 


TB 


+ 


02B7H3 


’ [HEX 


TB 


-L. 


02ECH3 


’ CHEX 


TB 


+ 


02F9H3 


’ [HEX 


TB 


+ 


03C2H3 



3 

3 

3 

3 

3 

3 



BLINKSCURSORS: PROCEDURE; 



/* SWAPS THE CURRENT CONTENTS OF CURSORC I) WITH */ 

/* SWAPSPOSC I) FOR EACH TERMINAL ( 1=0 TO 3) . */ 

/* CALLED BY: TIMERSHDLR ( INTERRUPT MOD) */ 

/ 2fC vfv ^ *fC2fC 2fC irfC 2f% / 



DECLARE I BYTE; 

I=( A=3) ; 

REPEAT; 

HL=[ CURSOR! ; 

CALL [GETS INDEX!; 

CALL [ GETS D ISPLAYSADDR! ; 
A= I ; CALL [ SWAPSCURSOR3 ; 
I=( A= 1-1) ; 

UNTIL ( A: :0) MINUS; 

END BLINKSCURSORS; 



C LEARS STATUS 8 L I NE : PROCEDURE; 

/* CLEARS THE STATUS LINE OF THE SPECIFIED TERMINAL.*/ 
/* INPUT: A - TERMINAL NUMBER */ 

/* CALLED BY: MTSSIPL (MONITOR MOD); */ 

/* BUMP (SERVICE MOD) ; */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXX'XXXKXXXXXXXXXXXmttXXXXXXXXX/ 

CALL [ GETSSTATUSSADDR] ; 

BC=0 ; DE= 64 ; /* SETUP PARAMETERS FOR */ 

CALL [BLANKSDISPLAY!; /* BLANKSDISPLAY PROC */ 

END CLEARSSTATUSSL INE ; 



MTS S MSG: PROCEDURE; 

/* CONTROLS THE MTS MESSAGE DISPLAY FIELD ON THE */ 
/* STATUS LINE OF THE TERMINAL SPECIFIED BY ’TASK’. */ 
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/* THE rrrs MESSAGE FIELD STARTS AT POSITION 48 AND */ 
/* UTILIZES THE REMAINING 16 BYTES FOR MTS MES SAGES */ 



/* ( SEE MTSSMESSAGE DATA) . */ 
/* INPUT: E - MTS MESSAGE NUMBER. */ 
/* GALLED BY: BUMP (SERVICE MOD); */ 
/* PR I NTERSHDLR ( I NT MOD) ; */ 
/* MINISDISK (MONITOR MOD); */ 
/* RECOVER ( MON ITOR MOD) ; */ 
/* BUMPSTASK (MONITOR MOD); */ 



/-^t******::***: ft*****************************************/ 



DECLARE MSGNO BYTE; 

MSGNO=( A=E) ; 

A= C TASK] : 

CALL I GETS STATUS® ADDR] ; 

BC=48; /* MTS MSG FIELD OFFSET FROM*/ 

/* STATUS 3ASE ADDRESS */ 

A* MSGNO ; E=4; CY=0; 

REPEAT; /* COMPUTE OFFSET INTO THE */ 

A= < < A ; /* MTSSMESSAGE DATA VECTOR */ 



UNTIL (E=E-1) ZERO; 

DE= ( HL=HL+BC) ; /* SETUP PARAMETERS FOR */ 

B=0; C*A; /* I MOVES BYTES] PROC */ 

HL= C MTSSMESSAGE] +BC ; 

BC= 16; CALL C MOVESBYTES] ; /* DISPLAY MSG */ 

END MTSSMSG; 



SIZESMSG: PROCEDURE; 

/* CONTROLS THE DISPLAY OF THE CURRENT MEMORY SIZE */ 
/* ON THE STATUS LINE OF THE TERMINAL SPECIFIED BY */ 
/* ’TASK’. THE SIZE MESSAGE STARTS AT POSITION 40 */ 



/* AND HAS THE GENERAL FORMAT: */ 

/* 40 47 */ 

*/ 

/* NRK MTS E.G. 16K MTS */ 

/* */ 

/* WHERE */ 

/* ’NR’ IS THE CURRENT MEMORY SWAP SIZE */ 

/* ALLOCATED TO THAT TERMINAL USER. */ 

/* THE RANGE IS FROM 0 TO 48K. THE INPUT MEMORY */ 

/* SIZE NUMBER IS CONVERTED TO ASCII FOR DISPLAY. */ 

/* INPUT: A - MEMORY SIZE */ 

/* CALLED BY: SIZE (SERVICE MOD); */ 

/* LOGIN (SERVICE MOD); */ 

/* RECO VERSSTATUSS LINE (MONITOR MOD); */ 






DECLARE MEMSS IZE BYTE; 

MEMSSIZE=A; 

A= I TASK] ; 

CALL C GET® STATUS® ADDR] ; 

BC=40; /* SIZE MSG FIELD OFFSET */ 

HL=HL+BC; /* HL= STARTING ADDRESS OF */ 

/* SIZE MSG FIELD ON STATUS */ 
/* LINE. */ 

A= MEMSS IZE; 

CALL I CONVERTS NUMB RST0SA5C II]; 

M(HL)=(A=B); HL=HL+ 1 ; /* DISPLAY MEMORY SIZE */ 

M(HL) = (A=C); DE= HL+ 1 ; /* SETUP PARAMETERS */ 

HL= [SIZES MESSAGE] ; /* FOR [MOVESBYTES] PROC*/ 

BC= 6 ; CALL [MOVESBYTES];/* DISPLAY REST OF */ 

/* SIZE MESSAGE */ 

END SIZESMSG; 



STATUS® MSG: PROCEDURE; 

/'***^!*^:»:^;^!***^:*3c****5S^c^******************************/ 

/* CONTROLS THE STATUS DISPLAY. POSITIONS 0 THRU 39 */ 
OF THE TERMINAL STATUS LINE. IT HAS THE */ 

/* FOLLOWING GENERAL FORMAT: 

o 39 */ 

— — — • — — — — — — — — — J(J/ 

/* A= NOr B= NOrC= NOr D= NOrE= NOr F= NOrG= NOrH= NOr */ 
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/* */ 

/* WHER E ■*/ 

/* THE LETTER ON THE LEFT OF THE EQUAL SIGN */ 

/* SPECIFIES THE DRIVE. 

/* ’NO’ IS THE DISK NUMBER (0-31). */ 

/* *r’ IS AN OPTIONAL PARAMETER WHICH IS */ 

/* DISPLAYED WHEN THE ATTACHED DISK IS A */ 

/* RESTRICTED (r) READ ONLY DISK. */ 

/* THE TERMINAL IS SPECIFIED BY ’TASK’. */ 

/* INPUT: A - ASCII CODE FOR RESTRICT (r), */ 

/* OR BLANK ( SPACE) . */ 

/* B - DRIVE NUMBER (MUST BE CONVERTED TO */ 

/* A LETTER FOR DISPLAY) . */ 

/* C - DISK NUMBER (RANGE 0-31; MUST BE */ 

/* CONVERTED TO ASCII FOR DISPLAY). */ 

/* CALLED BY: LOGIN (SERVICE MOD); */ 

/* ATTACH (SERVICE MOD); */ 

/* RECOVERSSTATUSSL I NE ( MONITOR MOD) ; */ 



DECLARE ( RESTRICT, DRI VESLTR, D ISKSNR) BYTE; 

/* GET INPUT PARAMETERS */ 

RESTRICT= A; DRI VESLTR= ( A= B) ; DISK$NR= ( A=C) ; 

A= C TASK] ; CALL C GETS STATUS SAD DR] ; 

/* COMPUTE THE APPROPRIATE STATUS */ 

/* BASE OFFSET TO DETERMINE WHERE */ 

/* TO DISPLAY THIS STATUS INFO */ 

C=0; B= ( A = DRI VESLTR) ; 

DO WHILE (As J0) T ZERO ; 

C=( A=C+3) ; 

B=( A=B-1) ; 

END; 

HL=HL+BC; /* SETUP ADDRESS FOR STATUS MSG. */ 

/* DISPLAY DRIVE LETTER */ 

M( HL) = ( A= DRI VESLTR+4 1H) ; 

HL= HL+ 1 ; 

/* DISPLAY EQUAL SIGN */ 

M( HL) 3 ( A= • * * ) ; 

HL= HL+ 1 ; A= DISKS NR; 

/* CONVERT AND DISPLAY DISK NUMBER */ 
CALL C CONVERTS NUMBRSTOS AS C III; 

M(HL) = (A=B); HL=HL+ 1 ; 

M( HL) = ( A-C) ; HL=HL+ 1 ; 

DISPLAY RESTRICT OR BLANK BYTE */ 
M(HL) = (A= RESTRICT) ; 

END STATUSSMSG; 



TERMI NALSSTATUS : PROCEDURE; 

/* PROVIDES THE INTERFACE POINT FOR OTHER MTS SYSTEM*/ 



/* FUNCTIONS. RETRIEVES THE CURRENT TERMINAL STATUS */ 
/* FOR THE TERMINAL SPECIFIED BY ’TASK’. */ 

/* OUTPUT: A - SET TO THE TERMINAL STATUS (EITHER */ 

/* INPUTSWAITING; MTS SCMDS READY; OR */ 

IBUFFSEMPTY) BY GETS TERMS STATUS PROC . */ 
/* CALLED BY: WRITES TERM INAL; MTS( SERVICE MOD); */ 

READ3TERM INAL ; */ 

MTSSIPL (MONITOR MOD); */ 



A= C TASK] ; 

CALL C GETS TERMS STATUS] ; 
END TERM I NALSSTATUS; 



RE ADS TERM INAL: PROCEDURE; 

z' *:£*** jf::#:***:*:**^;*;*:#::*?*******#*^^*^*********************/ 

/* GETS THE NEXT CHAR FROM THE TERMINAL INPUT BUFFER*/ 
/* SPECIFIED BY ’TASK’. * / 

/* IT IS ASSUMED THAT THE CALLING PROCEDURE HAS */ 

/* CHECKED TERMINAL STATUS TO ENSURE INPUT IS */ 

/* WAITING PRIOR TO CALLING READSTERMINAL. */ 

/* A TEST FOR END OF IBUFF IS MADE AND IF SO, A */ 

/* ’OR’ CHAR IS RETURNED; THE TERMINAL STATUS IS SET*/ 
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/* TO EMPTY; AND THE NEXT'S CHAN PTR IS SET TO CURRENT*:/’ 
l irrE. y?/ 

IF NOT AT END OF I BUFF , THE NEXT CHAR IS RETURNED*/ 
/* AND THE NEXTSCHAR PTR INCREMENTED. */ 

/* OUTPUT: A - CHAR OR CR */ 

/* CALLED BY: MTS (SERVICE MOD); MTSSIPL (MONITOR);*/ 

MONITOR (MONITOR MOD); */ 



/* 



****** *******/ 

DECLARE CHAR BYTE; 

DECLARE PTR( 2) BYTE; 



A= [ TASK! ; HL= [ NEXTSCHAR] ; 

CALL [ GETS INDEX] ; /* DE= ADDR OF NEXTSCHAR PTR */ 

HL= [ ENDS I BUFF] +BC; /* HL= ADDR OF ENDS I BUFF PTR */ 
CALL [ COMPARESFTRS] ; /* NEXTSCHAR= ENDS I BUFF ?? */ 

IF ( A= > > A) CY THEN 

DO; /* AT END OF I BUFF , SET */ 

/* NEXTSCHAR = CURRENTSLINE */ 

A= I TASK] ; HL=[ CURRENTSLINE] ; 

CALL [GETS INDEX] ; 

BC= ( HL= [ NEXTSCHAR] + BC) ; 

CALL [ GETS VALUE] ; /* HL= CURRENTSLINE VALUE*/ 



DE= BC+ 1 ; 

CALL [ STORESVALUE] ; 

/* UPDATE TERMINAL STATUS */ 

CALL TERMINALSSTATUS; /* RETURNS HL= ADDR */ 

/* OF TERMSSTATUS. */ 
M( HL> = ( A= C IBUFFSEMPTY] ) ; 

/* RETURN ’CR’ TO CALLER */ 

CHAR= ( A= C CR] ) ; 

END 

ELSE /* NOT AT END OF I BUFF */ 

/* RETURN THE CHAR */ 

DO; 

A= ( TASK] ; HL- [ NEXTSCHAR] ; 

CALL [ GETS INDEX! ; /* GET AND SAVE */ 

PTR=HL; /* NEXTSCHAR OFFSET */ 

CALL [ GETSDISFLAYSADDR] ; 

CHAR=(A=M(HL) ) ; /* RETURN CHAR */ 

/* INCREMENT NEXTSCHAR */ 

DE= ( HL= PTR-*- 1 ) ; /* SETUP [STORESVALUE] */ 

HL=BC+- 1 ; /* PARAMETERS */ 

CALL [ STORESVALUE] ; 

END; 



A=CHAR; /* RETURN APPROPRIATE RESPONSE */ 

END READSTERMINAL; 



WRITES TERM INAL: PROCEDURE; 



/* DISPLAYS THE CHAR AT THE CURRENT CURSOR POSITION */ 
/* OF THE TERMINAL SPECIFIED BY ’TASK’. IT CHECKS */ 
/* FOR TWO SPECIAL CHARACTERS WHICH AFFECT THE */ 
/* DISPLAY CURSOR POSITION. */ 
/* ’CR’ RETURNS THE CURSOR TO THE BEGINNING OF THE */ 
/* CURRENT DISPLAY LINE. ’LF’ MOVES THE CURSOR DOWN */ 
/* TO THE NEXT LINE. */ 
/* FOR ALL OTHER CHARACTERS, THE CHAR IS DISPLAYED */ 
/* AND THE CURSOR POSITION INCREMENTED. */ 
/* PRIOR TO OUTPUT, THE CURRENT CURSOR DISPLAY */ 
/* ADDRESS IS CHECKED TO ENSURE THAT THE CURSOR CHAR*/ 
/* IS SAVED. OUTPUT OF CHARACTERS IS DONE UNDER */ 
/* INTERRUPT LOCKOUT TO ENSURE THAT SWAPPING BY */ 
/* BLINKSCURSORS PROC IS NOT DONE. */ 
/* SUBPROCEDURE: UPDATES PTRS ; */ 
/* INPUT: E - ASCII CODE OF CHAR TO BE DISPLAYED */ 
/* CALLED BY: MTS (SERVICE MOD); */ 
/* MTSSIPL (MONITOR MOD) ; */ 



^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ %% K f\ * ## ^ / 

DECLARE CHAR BYTE; 

DECLARE SAVESCURSOR (2) BYTE; 
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UP DATES PTRS : PROCEDURE; 

/XXXXXXXXXXXXXXXXXXiXXXXXXXiXXXXXXXTKXXiXmcXittXXXXXXXX/ 

/* AFTER THE DISPLAY OF EACH CHAR THE CURRENT */ 
/* LINE PTR AND NEXT CHAR PTR ARE ALWAYS SET TO */ 
/* NEW CURSOR POSITION. ADDITIONALLY, THE */ 

/* TERMINAL’S STATUS IS SET TO I BUFF EMPTY. */ 

/-XXXZ-SKXXXyiXXXXXXXXXX'XXXXXXXXXXXXXXXXXXXTKXXXXXXTKXXX/ 

/* GET CURSOR POSITION */ 

A= C TASK! ; HL= [ CURSOR] ; 

CALL CGETSINDEX]; 

/* SET CURRENTSLINE = CURSOR */ 

BC=(HL=CCURRENT$LINE]+BC) ; 

CALL C GETSVALUE] ; /* HL= CURSOR VALUE */ 

DE = BC+ 1 ; 

CALL C STORESVALUE] ; /* CURRENTSL I NE= CURSOR */ 
SAVESCURSOR=HL; 

/* SET NEXTSCHAR = CURSOR */ 

A= [ TASK] ; HL= [ NEXTSCHAR] ; 

CALL CGETSINDEX]; 

HL=SAVESCURSOR; DE=DE+ 1 ; 

CALL C STORESVALUE] ; /'* NEXTSCHAR= CURSOR */ 

/* SET TERMINAL STATUS = EMPTY */ 
CALL TERMINALSSTATUS; 

M( HL) = ( A= C IBUFFSEMPTY] ) ; 

END UP DATES PTRS ; 

/XXXXXXXXXXXXXXXXXXXXXXX-XXXXXXXXXXXXXXXX'XXXXTZ/' 

/* START OF WRITES TERM INAL PROCESSING */ 

DISABLE; 

CHAR=( A=E) ; 

A= l TASK] ; CALL C CHECKSCURSOR] ; 

A= t TASK] ; HL= C CURSOR] ; 

CALL CGETSINDEX]; 

IF ( A=CHAR-CCR] ) ZERO THEN 

DO; /* CARRIAGE RETURN */ 



CALL C GETSVALUE] ; s* HL=CURSOR */ 

L=(A=L 8 0C0H) ; /* GET LEFT MARGIN */ 

END 

ELSE 

DO; 

IF ( A= CHAR- C LF] ) ZERO THEN 

DO; /* LINE FEED */ 

CALL [GETSVALUE]; s* HL=CURSOR 

BC=64; HL=HL+BC ; 

END 

ELSE /* DISPLAY CHAR */ 



DO; 

SAVESCURSOR=HL; 

CALL C GETSD ISPLAYSADDR] ; 

M( HL) = ( A=CHAR) ; 

DE=(HL=SAVE$CURSOR) ; 

CALL [ GETSVALUE] ; 

HL=HL+1; /* INCREMENT CURSOR */ 

END; 

END; 

/* HL REG HOLDS NEV CURSOR POSITION 
A= C TASK] ; CALL C UPDATESCURSOR] ; 

ENABLE; 

/* UPDATE OTHER DISPLAY PTRS *s 

CALL UPDATES PTRS ; 

END WRITESTERMINAL; 



EOF 
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/* DEBUG MODULE */ 

/**********:ro************:s*********:f:***:ii:********»::f::*;*;|;5f:*/ 
/* */ 
/* THIS MODULE PROVIDES THE FACILITY FOR INTERACTIVE */ 
/* DEBUGGING OF MTS. THE DEBUGGER MODULE WAS DEVEL- */ 
/* OPED TO REPLACE THE SYCOR HARDWARE DEBUGGER DUE */ 
/* TO ITS QUESTIONABLE HARDWARE RELIABILITY AND LIM- */ 
/* I TED DEBUG CAPABILITY. */ 
/* */ 
/* THE DEBUG MODULE IS DIVIDED INTO FOUR BASIC SUB- */ 
/* MODULES: */ 
/* */ 
/* ( 1 ) DEBUG ENTRY AND COMMAND PROCESSOR */ 
/% ■»/ 
/* THIS SUBMODULE CONTAINS THE ENTRY POINT FOR */ 
/* THE DEBUGGER AND THE LOGIC TO SAVE THE MACHINE */ 
/* AND MTS PROGRAM STATES. THE COMMAND PROCESSOR */ 
/* INTERPRETS THE DEBUG COMMAND REQUESTED AND */ 
/* TRANSFERS CONTROL TO THE APPROPRIATE DEBUG */ 
/* PROCESSING PROCEDURE. */ 
/* */ 
/* (2) DEBUG UTILITIES */ 
/* */ 
/* THIS SUBMODULE CONTAINS ALL UTILITY PROCEDURES */ 
/* USED BY THE DEBUGGER. */ 
/* */ 
/* (3) DEBUG PROCESSING PROCEDURES */ 
/* */ 
/* THIS SUBMODULE CONTAINS THE ROUTINES TO PRO- */ 
/* CESS THE FOLLOWING DEBUG COMMANDS: DISPLAY (D) */ 
/* FILL (F), GO (G), GO WITH INTERUPTS DISABLED */ 
/* (H), MOVE (M), SET (S) AND EXAMINE REGISTERS */ 
/* (X). THE EXIT POINTS FROM THE DEBUGGER ARE */ 
/* CONTAINED WITHIN THE G AND H ROUTINES. */ 
/* */ 
/* (4) DEBUG PROCESSING PROCEDURES - DISK I/O */ 
/* */ 
/* THIS SUBMODULE CONTAINS THE ROUTINES TO PRO- */ 
/* CESS THE FOLLOWING DEBUG COMMANDS: MIN I -DISK */ 
/* BINARY INPUT (I), MINI-DISK BINARY OUTPUT (0) */ 
/* AND READ HEX FORMAT ( R) . */ 
/* */ 
/% */ 
/* DEBUG COMMANDS */ 
/* */ 
/* THE DEBUGGER CAN BE ENTERED AT ANY TIME BY PROGRAM */ 
/* EXECUTION OF A RST 2 INSTRUCTION. WHEN THE DEBUG- */ 
/* ER IS EXECUTING THE OPERATOR IS PROMPTED WITH A ~. */ 
/* THE ~ INDICATES TO THE OPERATOR THAT THE DEBUGGER */ 
/* IS READY TO PROCESS A DEBUG COMMAND. */ 
/* CERTAIN CONVENTIONS APPLY TO ALL DEBUG COMMANDS. */ 
/* THE COMMAND DELIMITER IS EITHER A COMMA OR SPACE. */ 
/* A COMMA IS SHOWN IN THE COMMAND DESCRIPTIONS WHICH */ 
/* FOLLOW. ANY TIME A NUMERIC PARAMETER IS ENTERED. */ 
/* IT MAY BE ENTERED IN THE STANDARD HEXADECIMAL FOR- */ 
/* MAT OR IN DECIMAL BY PRECEEDING THE NUMBER WITH A */ 
/* PERIOD ( . ) . */ 
/* */ 
/* . */ 
/* COMMAND DESCRIPTIONS */ 
/* */ 
/* 1. D - DISPLAY 

/* THE D COMMAND DISPLAYS THE CONTENTS OF MEMORY */ 
/* IN HEXADECIMAL AND ASCII FORMATS. THE FORMATS */ 
/* OF THE COMMAND ARE */ 
/* */ 
/* D */ 
/* D< S> %/ 
/* */ 
/* IF THE D COMMAND IS USED. MEMORY IS DISPLAYED */ 
/* FROM THE CURRENT DISPLAY ADDRESS ( INITIALLY */ 
/* 4000H) , AND CONTINUES FOR 4 DISPLAY LINES. */ 
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EACH DISPLAY LINE CONTAINS THE DISPLAY ADDRESS, */ 
/* THE DATA IN HEXADECIMAL FORMAT AND THE DATA IN */ 

/* ASCII FORMAT. A PERIOD C.) IS DISPLAYED IF THE xs 

/X ASCII CHARACTER IS NON-DISPLAYABLE. THE D< S> */ 

/x COMMAND PERFORMS IN THE SAME MANNER AS THE D */ 

COMMAND EXCEPT THE DISPLAY ADDRESS IS SET TO x/ 
/X <S>. */ 

sx x/ 

/x 2. F - FILL */ 

/* THE FILL COMMAND IS USED TO INITIALIZE AN AREA */ 

/X OF MEMORY TO A CONSTANT VALUE. THE FORMAT OF */ 

/* THE COMMAND IS */ 

/x 

/x F< S> , D> , < C> %/ 

/x */ 

/X WHERE <S> IS THE STARTING ADDRESS, < F> IS THE X/ 

/ x FINAL ADDRESS AND < C> IS AN 8 BIT VALUE. x/ 

/X X/ 

/x 3. G - GO (PROGRAM EXECUTE) 

sx THE G COMMAND TRANSFERS CONTROL FROM THE DE- X/ 

/X BUGGER TO THE SPECIFIED PROGRAM COUNTER VALUE x/ 

/X WITH UP TO TWO OPTIONAL BREAKPOINTS SPECIFIED. * / 

/X THE FORMS OF THE COMMAND ARE x/ 

/ x x / 

/X G x/ 

/x G< S> x / 

/x G< S> , < B> x/ 

/X G< S> , < B> , < C> x/ 

sx G,<B> x/ 

/X G, < B> , < C> x/ 

/x x/ 

/x WHERE <S> IS THE VALUE TO WHICH THE PROGRAM x/ 

s x COUNTER IS SET, AND < B> AND < C> ARE OPTIONAL x / 

/X BREAKPOINT LOCATIONS. IF < S> IS NOT SPECIFIED x / 

/X THE CURRENT VALUE OF THE PROGRAM COUNTER IS x/ 

/ x USED. IF NO BREAKPOINTS ARE SET, THE ONLY WAY x/ 

/X TO RETURN TO THE DEBUGGER IS THE EXECUTION OF x/ 

/ x A RST 2 INSTRUCTION. x/ 

/X X/ 

/x 4. H - GO (PROGRAM EXECUTE WITH INTERUPTS DISABLED) x/ 

/X THE H COMMAND PERFORMS THE SAME FUNCTIONS AS X / 

/X G COMMAND EXCEPT INTERUPTS ARE DISABLED WHEN x/ 

/ x THE MACHINE AND MTS STATES ARE RESTORED. THIS x/ 

/X COMMAND IS ESSENTIAL TO DEBUGGING THE CRITICAL X/ 

/ x SECTIONS OF MTS CODE. THE FORMS OF THE COMMAND 

/X FOLLOW: x/ 

/x x/ 

/ x H x/ 

/x H< S> X/ 

/x H< S> , < B> x/ 

/x H< S> , < B> , < C> x/ 

/ x H, < B> x/ 

/X H, < B> , < C> x/ 

/X X/ 

/ x WHERE <C> ,<B> AND < C> ARE THE SAME AS THE G x/ 

/x COMMAND. X/ 

/x x/ 

/x 5. I - MINI-DISK BINARY INPUT x/ 

/ X THE I COMMAND INPUTS 5 12 BYTE SECTORS F ROM THE x/ 

/x MINI- DISK INTO MEMORY. THE FORMAT OF THE COM- X/ 

/x MAND IS x/ 

/X X/ 

/x I< S> , < A> , < N> X/ 

/ X x/ 

/x WHERE <S> IS THE STARTING MINI-DISK SECTOR NUM- x/ 

sx BER, <A> IS THE ADDRESS WHERE THE DATA IS INPUT x/ 

/x AND <N> IS THE NUMBER OF 512 BYTE BLOCKS TO BE x/ 

sx INPUT. 

/X X/ 

/X 6. MOVE - MOVE MEMORY */ 

/x THE M COMMAND MOVES ONE AREA OF MEMO RY TO AN- x/ 

/x OTHER .AREA OF MEMORY. THE FORMAT OF THE COMMAND X/ 

/x IS %/ 
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X* *x 
X* M< S> , < D> , < N> */ 

x* *x 

X* WHERE <S> IS THE START ADDRESS, < D> IS THE DES- *X 
X* TINATION ADDRESS AND < N> IS THE NUMBER OF BYTES *x 
X* TO BE MOVED. *x 
X* *X 
x* 7. 0 - MINI-DISK BINARY OUTPUT *x 
X* THE 0 COMMAND OUTPUTS MEMORY IN 512 BYTE BLOCKS *x 
/* TO THE MINI-DISK. THE FORMAT OF THE COMMAND IS *x 
X* *x 
X* 0< S> , < A> , < N> *x 
/* *x 
X* WHERE <S> IS THE STARTING MINI-DISK SECTOR RUM- *x 
X* BER, <A> IS THE ADDRESS WHERE THE OUTPUT DATA *X 
X* IS LOCATED AND <N> IS THE NUMBER OF 512 BYTE *x 
x* BLOCKS TO BE OUTPUT. *x 
x* *x 
X* 8. R - READ HEX FORMAT *x 
X* THE R COMMAND READS DATA FROM THE MINI-DISK IN *x 
x* INTEL HEX FORMAT AND LOADS MEMORY. THE FORM OF *X 
x* THE COMMAND IS *x 
/* *X 

x* R< N> *x 
x* *x 
X* THE INPUT FILE MUST HAVE THE NAME .DISK<N> *X 
x* WHERE <N> IS A NUMBER FROM O TO 31. THE FILE *x 
X* MUST ALSO BE CREATED AND FILLED UNDER THE SYCOR *x 
X* OPERATING SYSTEM. *x 
X* *X 
X* 9. S - SET MEMORY *X 
x* THE S COMMAND IS USED TO EXAMINE AND OPTIONALLY *x 
X* MODIFY MEMORY ONE BYTE AT A TIME. THE FORMAT OF *x 
x* THE COMMAND IS *x 
X* *X 
X* S< A> *X 
X* *X 
x* WHERE <A> IS THE FIRST ADDRESS TO BE EXAMINED. *x 
x* THE DEBUGGER OUTPUTS THE ADDDRESS FOLLOWED BY *X 
x* THE CONTENTS OF MEMORY AT THAT ADDRESS. IF MEM- *X 
x* ORY MODIFICATION IS DESIRED, A VALUE MAY BE *x 
X* ENTERED FOLLOWED BY A CARRIAGE RETURN C < CR> ) . *x 
x* IF JUST A < CR> IS ENTERED THE NEXT LOCATION IS *x 
x* OPENED. A <-> CAUSES THE PREVIOUS LOCATION TO *x 
x* BE OPENED. A < x> MAY BE ENTERED TO TERMINATE *x 
x* THE SET OPERATION. *x 
X* *x 
x* 10. X - EXAMINE REGISTERS *x 
X* THE X COMMAND IS USED TO EXAMINE AND OPTIONALLY *x 
x* ALTER REGISTER CONTENTS. THE FORMS OF THE COM- *x 
X* MAND ARE *x 

X* *x 

x* X *x 
x* X< R> *x 
x* *x 
x* WHERE <R> IS ORE OF THE FOLLOWING REGISTER *x 
X* IDENTIFIERS: C (CARRY BIT), E (EVEN PARITY BIT),*x 
X* I (INTERDIGIT CARRY BIT), Z (ZERO BIT), M (MIN- *X 
x* US - SIGN BIT), A (ACCUMULATOR), B ( BC REGISTER *x 
X* PAIR), D (DE REGISTER PAIR), H ( HL REGISTER *x 
X* PAIR), S (STACK POINTER) AND P (PROGRAM *x 
x* COUNTER) . ALL REGISTER CONTENTS ARE DISPLAYED *X 
X* WHEN ONLY X IS ENTERED. IF X< R> IS ENTERED, *x 
x* THE SPECIFIC REGISTERS CONTENTS ARE DISPLAYED *x 
X* AND MAY OPTIONALLY BE ALTERED BY ENTERING A *x 
x* NUMERIC VALUE FOLLOWED BY A CARRIAGE RETURN. *x 
x* IF ALTERATION IS NOT DESIRED, A < CR> WILL */ 
/* CLOSE THE REGISTER. *x 
x* *x 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 
/xxxxxxxxxxxxxxxxxx DEBUGGER CONTROL xxxxxxxxxxxxxxxxxx/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 



/************** INTERMODULE LINKAGE MACROS xxxxxxxxxxxxs 

C INT DB2 DB3 DB4 M2B IB GB] 

[ DB2 : = 2EC0H] [ DB3 : = 3070H3 [ M2B : = 06O0H] 

[IB:=3Q00H3 CDB4:=3460H3 [GB:=03 
[MACRO MTS ’[HEX GB + 1F06H3 ’ 3 
[MACRO MOVBUF ’[HEX M2B + 41H1’3 
[MACRO SVCSSTACK ’[HEX GB + 3C56H3 ’ 3 
[MACRO INT3STACK ’[HEX IB + 03H3 ’ 3 
[ MACRO GO ’ [ HEX DB3 + ODHJ ’ 3 
[MACRO HI ’[HEX DB3 + 3B2H3 ’ ] 

[MACRO DISPLAY ’[HEX DB3 + 2BAH3 ’ 3 
[MACRO FILL ’[HEX DB3 + 1F4H3 ’ 3 
[ MACRO MOVE ’ [ HEX DB3 + 34EH3 ’ 3 
[ MACRO SET * [ HEX DB3 + 23CH] ’ 3 
[MACRO READ ’[HEX DB4 + 187H3 ’ 3 

[ MACRO X ’ [ HEX DB3 + 1 1CH3 ’ 3 
[MACRO CONVERTS WRITE ’[HEX DB2 + 21 HI ’3 
[ MACRO CRLF ’ [ HEX DB2 + 03H3 ’ 3 
[MACRO SAVE ’[HEX GB + 1F03H3 ’ 3 
[MACRO LOCK ’[HEX GB + 3C54H3 ’3 
[MACRO INPUT ’[HEX DB4 + 212H3’3 
[MACRO OUTPUT ’[HEX DB4 + 21AH3 ’] 

x^xxxxxxxxxxxxx GENERAL PURPOSE MACROS xxxxxxxxxxxxxxxxs 
C INT TOP USERSTOP I TOP STOP 3 

[ TOP : = 5 1 3 [ USERSTOP : =343 [ITOP*.=303 [STOF:=40] 

[MACRO TERM I N AL S S TATUS ’C=8; CALL [MTS3’3 

[MACRO READSTERMI NAL C = 9; CALL [MTS3’3 

[MACRO WR I TESTE RM INAL LTR ’C=10; E= [ LTR3 ; CALL [MTS3’3 

[MACRO TRUE ’OFFH’3 

[MACRO PROMPT ’7EH’3 

[MACRO ERRORS CHAR ’3FH’3 



/xxxxxxxxxxxxxx MODULE DECLARATIONS xxxxxxxxxxxxxxxxxxx/' 

DECLARE ( DEBUGSENTRY, DEBUGSCMD) LABEL; 

DECLARE DEBUGSSTACKC 3 1) BYTE INITIAL (0); 

DECLARE SAVSINTSSTACK (30) BYTE INITIAL (0); 

DECLARE SAVSSSSSTACK (40) BYTE INITIAL (0); 

DECLARE TRAPSLOC (6) BYTE INITIAL (0,0, 0,0, 0,0); 

DECLARE I BYTE INITIAL (0); 

DECLARE SAVHL DATA (0,0) ; 

DECLARE SAVDE DATA (0,0); 

DECLARE SAVSSAVE DATA (0,0,0); 

ERROR: PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



/X THIS ROUTINE IS EXECUTED FOR MY DEBUG ERROR */ 

/* CONDITIONS. THE STACK POINTER VALUE IS RESET X/ 

/x BECAUSE OF ITS UNKNOWN STATE AT THE TIME THIS */ 

ROUTINE IS GALLED. AN ERROR PROMPT IS DISPLAYED 
/* AT THE TERMINAL. PROGRAM CONTROL IS PASSED TO */ 

/* DEBUGSCMD FOR FURTHER COMMAND PROCESSING. */ 

/* CALLED BY: DEBUGSCMD, GETS P ARAM, GO, X, F ILL, DISPLAY, */ 
/x SET, MOVE, IN IT, CHECKS RDSPNTR, READ, */ 

/-x DISKS 10 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

SP= . DEBUGSSTACK( [ USERSTOP 3 ) ; 

[ WRITES TERM INAL ’ [ ERR0RSCHAR3 ’ 3 ; 

GOTO DEBUGSCMD; 

END ERROR; 

DEBUGSENTRY: 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x THIS ROUTINE IS THE ENTRY POINT OF THE DEBUGGER. 



172 



